Haskell code - 4 lines

Link:

Haskell, pasted on May 6:

initials :: String -> String -> String
initials firstname lastname = [f] ++ ". " ++ [l] ++ "."
    where (f:_) = firstname
          (l:_) = lastname

Output:

1 2	Error occurred ERROR - Undefined variable "main"