1 files changed, 3 insertions, 4 deletions
diff --git a/eval.c b/eval.c
index f63f5e0..63b5033 100644
--- a/eval.c
+++ b/eval.c
@@ -28,7 +28,7 @@ int bindingstrengths[11][11] = {
 	0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, /* H */
 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* MO */
 	6, 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, /* DO */
-	3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */
+	3, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */
 	0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, /* ( */
 	8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, /* ) */
 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ← */
@@ -43,7 +43,7 @@ evalfn evalfns[11][11] = {
 	0, 0, 0, monadop, 0, 0, 0, 0, 0, 0, 0, /* H */
 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* MO */
 	dyadop, dyadop, dyadop, 0, 0, 0, 0, 0, 0, 0, 0, /* DO */
-	monadfun, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */
+	monadfun, train, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* AF */
 	0, 0, 0, 0, 0, 0, 0, parens, 0, 0, 0, /* ( */
 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ) */
 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ← */
@@ -297,8 +297,7 @@ train(Datum left, Datum right)
 	result.shy = 0;
 	result.tag = FunctionTag;
 	result.func.type = FunctypeTrain;
-	result.func.left = left.func.left;
-
+	result.func.left = nil;
 	if(left.func.type == FunctypeTrain)
 		result.func = left.func;
 	else{