Lispinterpreter
input
a = cons(-1,0); sexp2string(list(a, a, a, list(a, a, list(a)), a));
run
clear
output