made the testMain app a little more Haskell standard