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