cat2.hs

-- ページ
data Page = Page [String]

-- 文字列をページに変換
toPage :: String -> Page
toPage = Page . lines

-- 数値 n を文字幅 width で右揃え
padding n width = let num  = show n       
                      lNum = length num 
                  in replicate (width - lNum) ' ' ++ num

-- 行に幅 widht で行番号をふる
numberingLine width (n, line) = padding n width ++ " " ++ line

-- ページに幅 width で行番号をふる
numberingPage width (Page cs) = unlines $ map (numberingLine width) numbering
    where
      numbering = (zip [1..] cs)

main = getContents >>= putStr . numberingPage 6 . toPage