diff --git a/mkpolynomial.spl b/mkpolynomial.spl
index 84f72f8..ee9920b 100644
--- a/mkpolynomial.spl
+++ b/mkpolynomial.spl
@@ -112,8 +112,8 @@ func main { status | with args ;
 						vardecl concat
 						")" concat
 					"simplify(f(x))"
-				] StreamTypes:cmd:create:read-to-end <{ 128 } _str =giac-out
-				("," giac-out:split:last) dup _array:sub <{ _array:len 2 - 0 swap } _str println
+				] StreamTypes:cmd:create:read-to-end<128> _str =giac-out
+				("," giac-out:split:last) dup _array:sub< _array:len 2 - 0 swap > _str println
 			} 
 			2 stop
 		}
@@ -183,7 +183,7 @@ func parse-expr { str | with degree expr ;
 		s chr concat =s
 	} expr _array 
 		:iter
-		:map <{ { str | [ swap ] _str } } 
+		:map<{ str | [ swap ] _str }>
 		:foreach
 	s
 }
@@ -220,7 +220,7 @@ func derivation { str=function | with degree derivation ;
 func mkvardecl { str | with degree ;
 	"["
 	0 degree ++ Range:new:iter
-		:map <{ { | "c" swap _str concat } }
-		:join <{ "," }
+		:map<{ | "c" swap _str concat }>
+		:join<",">
 	"]" concat concat
 }