let spirale () =
  let step =  pi /. 60. in
  let fin = ((13. *. pi) /. 2.) /. step in
  let t = ref 0. in
    while !t < fin do
      let (x, y) = cart_of_pol !t !t in
        Printf.printf"(%f, %f)" x y;
        t := !t +. step
    done