((function mod
   (signature float
     (parameters
       (declare (in) float arg0)
       (declare (in) float arg1))
     ((return (expression float % (var_ref arg0) (var_ref arg1)))))

   (signature vec2
     (parameters
       (declare (in) vec2 arg0)
       (declare (in) vec2 arg1))
     ((return (expression vec2 % (var_ref arg0) (var_ref arg1)))))

   (signature vec3
     (parameters
       (declare (in) vec3 arg0)
       (declare (in) vec3 arg1))
     ((return (expression vec3 % (var_ref arg0) (var_ref arg1)))))

   (signature vec4
     (parameters
       (declare (in) vec4 arg0)
       (declare (in) vec4 arg1))
     ((return (expression vec4 % (var_ref arg0) (var_ref arg1)))))

   (signature vec2
     (parameters
       (declare (in) vec2  arg0)
       (declare (in) float arg1))
     ((declare () vec2 result)
      (assign (constant bool (1)) (swiz x (var_ref result))
              (expression float % (swiz x (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz y (var_ref result))
              (expression float % (swiz y (var_ref arg0)) (var_ref arg1)))
      (return (var_ref result))))

   (signature vec3
     (parameters
       (declare (in) vec3  arg0)
       (declare (in) float arg1))
     ((declare () vec3 result)
      (assign (constant bool (1)) (swiz x (var_ref result))
              (expression float % (swiz x (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz y (var_ref result))
              (expression float % (swiz y (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz z (var_ref result))
              (expression float % (swiz z (var_ref arg0)) (var_ref arg1)))
      (return (var_ref result))))

   (signature vec4
     (parameters
       (declare (in) vec4  arg0)
       (declare (in) float arg1))
     ((declare () vec4 result)
      (assign (constant bool (1)) (swiz x (var_ref result))
              (expression float % (swiz x (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz y (var_ref result))
              (expression float % (swiz y (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz z (var_ref result))
              (expression float % (swiz z (var_ref arg0)) (var_ref arg1)))
      (assign (constant bool (1)) (swiz w (var_ref result))
              (expression float % (swiz w (var_ref arg0)) (var_ref arg1)))
      (return (var_ref result))))
))