import Text.Regex
import Text.Printf

main = getContents >>= mapM_ (putStrLn . concat . map format . split ";") . lines

format = printf "%12s"
split sep = splitRegex (mkRegex sep)

返信