o=> Functor m
=> MonadIO m
-> Int
foo x = x
:saveas! result.hs
:q!