((function fract
   (signature float
     (parameters
       (declare (in) float x))
     ((return (expression float - (var_ref x) (expression float floor (var_ref x))))))

   (signature vec2
     (parameters
       (declare (in) vec2 x))
     ((return (expression vec2 - (var_ref x) (expression vec2 floor (var_ref x))))))

   (signature vec3
     (parameters
       (declare (in) vec3 x))
     ((return (expression vec3 - (var_ref x) (expression vec3 floor (var_ref x))))))

   (signature vec4
     (parameters
       (declare (in) vec4 x))
     ((return (expression vec4 - (var_ref x) (expression vec4 floor (var_ref x))))))
))