title :: [String] -> [String]
title [] = []
title (first:rest) = capitalized first ++ helper rest
      where
           helper [] = []
           helper (x:xs)
                  | length x > 4 = capitalized x
                  | otherwise = helper xs