(while:prn:-(* #0=(-(read)1)#0#)1)