to square(float a) into float result
   {
   result = a*a;
   }

to freen(float x) into (float square, int mod4, int mod5)
    {
    int i = x;
    square = x*x;
    mod4 = i&3;
    mod5 = i%5;
    mod5 = x*x;
    }