fay-0.16.0.0: tests/whereBind3.hs

import           Prelude

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

main = putStrLn (f "my friends")