"innsetja.mmod" =
!
{{
innsetja =
	fun(x,u)
	{
		x == [] && (return [u]);
		head(x) << == u || (return u:x);
		head(x) : innsetja(tail(x),u);
	};
}}
;

show "innsetja.mmod";

"test1.mexe" = main in
{{
main =
	fun()
	{
		var x  = [1,2,9,3],y;
		while(x! == [])
		{
			y = innsetja(y,head(x));
			x = tail(x);
		};

		writeln(y);
	};
}}
*
"innsetja.mmod"
*
{{
<<== = fun <= (x,y);
}}
*
BASIS
;