completed pads-haskell printing