module App
    ( message
    ) where

message :: IO ()
message = putStrLn "hello strio"