haskell script common