fay-0.24.2.0: tests/whereBind3.hs

module WhereBind3 where

f :: String -> String
f x = friends ++ family
  where friends = x
        family = " and family"

main = putStrLn (f "my friends")