1((function atanh
2   (signature float
3     (parameters
4       (declare (in) float x))
5     ((return (expression float * (constant float (0.5))
6                (expression float log
7		  (expression float /
8                    (expression float + (constant float (1)) (var_ref x))
9                    (expression float - (constant float (1)) (var_ref x))))))))
10
11   (signature vec2
12     (parameters
13       (declare (in) vec2 x))
14     ((return (expression vec2 * (constant float (0.5))
15                (expression vec2 log
16		  (expression vec2 /
17                    (expression vec2 + (constant float (1)) (var_ref x))
18                    (expression vec2 - (constant float (1)) (var_ref x))))))))
19
20   (signature vec3
21     (parameters
22       (declare (in) vec3 x))
23     ((return (expression vec3 * (constant float (0.5))
24                (expression vec3 log
25		  (expression vec3 /
26                    (expression vec3 + (constant float (1)) (var_ref x))
27                    (expression vec3 - (constant float (1)) (var_ref x))))))))
28
29   (signature vec4
30     (parameters
31       (declare (in) vec4 x))
32     ((return (expression vec4 * (constant float (0.5))
33                (expression vec4 log
34		  (expression vec4 /
35                    (expression vec4 + (constant float (1)) (var_ref x))
36                    (expression vec4 - (constant float (1)) (var_ref x))))))))
37))
38