main =
 do
 f "Test\n"
 where
 f = putStr