dvorak practice program in haskell