(while:prn:num((fn,c,,(c:c:c,(c:c:c,,,,,(c,(c:c:read)))))sin cos)6 t 1)