File "ray.ml", line 28, characters 65-70: This expression has type 'a but is here used with type vec * float * 'a list