modified status for our use
another simple haskell program