add old Haskell code