, ("map" , (2, Right $ genMapCall ) )
, ("empty" , (0, Left $ genExprFCall emptyId ) )
, ("singleton" , (1, Left $ genExprFCall singletonId ) )
, ("map" , (2, Right $ genMapCall ) )
, ("empty" , (0, Left $ genExprFCall emptyId ) )
, ("singleton" , (1, Left $ genExprFCall singletonId ) )