(while([prn _" = 6 * "(int:/ _ 6)" "(" +-"(mod _ 3))" "1](read)))