Tomren3000

import Data.Char

navne :: [String]
navne = ["Morten", "Thomas", "Trine"]

buildString :: String -> [String] -> String
buildString a [x] = a ++ x ++ "\n"
buildString a xs = buildString (a ++ head xs ++ "\n") (tail xs)

buildString' :: String -> [String] -> String