module T190_A where foo :: Int -> Fay () foo _ = putStrLn "WRONG!"