(while(read)=>\(print\" = 6 * "(div0\ 6)" "(~" +   -"(mod\ 6))" 1"))