extend Chris' arg reversal to tree_monadize.ml