bar.hs

fromMaybe :: Maybe a -> String
fromMaybe Nothing = "Nothing"
fromMaybe Just a = show a

foo.hs

foo :: [Maybe Int]
foo = [ Just 10
      , Just 20
      , Nothing
      , Just 40
      ]

main :: IO ()
main = mapM_ (putStrLn ∘ show) foo