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)