lnicola
6/26/2014 - 12:12 PM

zip.hs

import Control.Monad
import Data.Char
import Data.List
import System.Environment
import Control.Monad.Instances

main = getArgs >>= mapM (liftM lines . readFile) >>= return . liftM2 zip head (head . tail)