oneNumber n s = show n ++ ": " ++ s

lineNumbers n xs =
    if xs == []
    then   []
    else   oneNumber n (head xs)
         : lineNumbers (n+1) (tail xs)

bunchie xs = unwords (lineNumbers 1 (lines xs))

main = interact bunchie