readCorpus :: String -> String -> IO (Corpus)
readCorpus filef filee = do
  fr <- readFile filef
  en <- readFile filee
  return $ map (\(x,y) -> ( "NULL":(words x), words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)
--  return $ map (\(x,y) -> (map BS2.pack $ "NULL":(words x), map BS2.pack $ words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)
readCorpus :: String -> String -> IO (Corpus)
readCorpus filef filee = do
  fr <- readFile filef
  en <- readFile filee
  return $ map (\(x,y) -> ( "NULL":(words x), words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)
--  return $ map (\(x,y) -> (map BS2.pack $ "NULL":(words x), map BS2.pack $ words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)
readCorpus filef filee = do
  fr <- readFile filef
  en <- readFile filee
  return $ map (\(x,y) -> ( "NULL":(words x), words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)
--  return $ map (\(x,y) -> (map BS2.pack $ "NULL":(words x), map BS2.pack $ words y)) $ zipWith (\x y -> (x,y)) (lines fr) (lines en)