module
App
(
message
)
where
message
::
IO
()
message
=
putStrLn
"hello strio"