module LookupSubA where

class IODevice a where
  getEcho :: a