[Haskell-cafe] Automatic liftIO or how to write this shorter?