Language: ML Author: Craig Kaplan (csk@cs.washington.edu) fun f () = let val l = "\n\\\":n":: "fun f () = let val l =":: "nil":: "fun a n = print(substring(hd l,n,1))":: "in":: "(print(hd(tl l));a 0;a 2;a 1;a 4;a 1;a 1;a 1;a 2;a 3;a 4;a 2;a 3;a 3;a 0;":: "a 2;print(hd(tl l));a 2;a 3;a 3;a 0;":: "map (fn x=>(a 2;print(x:string);a 2;a 3;a 3;a 0)) (tl (tl l));":: "map (fn x=>(print(x:string);a 0)) (tl (tl l));())":: "end;":: nil fun a n = print(substring(hd l,n,1)) in (print(hd(tl l));a 0;a 2;a 1;a 4;a 1;a 1;a 1;a 2;a 3;a 4;a 2;a 3;a 3;a 0; a 2;print(hd(tl l));a 2;a 3;a 3;a 0; map (fn x=>(a 2;print(x:string);a 2;a 3;a 3;a 0)) (tl (tl l)); map (fn x=>(print(x:string);a 0)) (tl (tl l));()) end;