(set! * 0)(while(< * 41)(if(eq?(read)'=)(print(dec! *))(inc! *)))