(bind-func static hilb_env_follow_c (lambda (n) (let ((hilb (hilbert_c n))) (lambda (x:SAMPLE) (sqrt (+ (pow x 2.0) (pow (hilb x) 2.0)))))))