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;