module T1647 where

foo :: IO ()
foo = putStrLn "Foo"