sub FMOD { return $_[0] - int($_[0] / $_[1]) * $_[1]; }