formatting for 12 in haskell