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