createLineNumber n ls = snd $ mapAccumL f n ls
　where
　　f n "" = (n, "")
　　f n line = (n+1, fillSpace 6 n ++ ":" ++ line)