gistfile1.hs

trimr :: String -> String
trimr = foldr f ""
  where
    f :: Char -> String -> String
    f c [] | c == ' '  = "" -- use Data.Char.isSpace alternatively
           | otherwise = [c]
    f c xs = c : xs