shared-environmental-state.hs

main :: IO ()
main = putStrLn $ first "Buddy"

type Name = String

first :: Name -> String
first name =
  second name ++ third name

second :: Name -> String
second name =
  "Welcome" ++ name ++ "!"

third :: Name -> String
third name =
  (fourth name) ++ "!"

fourth :: Name -> String
fourth name =
  " I wish my name was " ++ name