, ("drop" , (2, Left $ genExprFCall dropId ) )
, ("+>" , (2, Left $ genExprFCall plusgtId ) )
, ("map" , (2, Right $ genMapCall ) )
+ , ("zipWith" , (3, Right $ genZipWithCall ) )
, ("empty" , (0, Left $ genExprFCall emptyId ) )
, ("singleton" , (1, Left $ genExprFCall singletonId ) )
+ , ("copy" , (2, Left $ genExprFCall copyId ) )
, ("hwxor" , (2, Left $ genExprOp2 AST.Xor ) )
, ("hwand" , (2, Left $ genExprOp2 AST.And ) )
, ("hwor" , (2, Left $ genExprOp2 AST.Or ) )