1 more ruby -> haskell script