nl_tokens: * META (( export #t ) ( peephole ( modulo )))
pl_tokens: function sc_modulo ( x , y ) { <mask> remainder = x % y ; // if they don't have the same sign if ( ( remainder * y ) < 0 ) return remainder + y ; else return remainder ; }