open Scanf open Printf let readint () = scanf " %d" (fun x -> x) let stoa s = Array.init (String.length s) (String.get s) let atos a = String.init (Array.length a) (Array.get a) let () = let a = readint () and b = readint() in printf "%d." (a / b); let rec loop i a b = if i < 50 then begin printf "%d" (a * 10 / b); loop (i + 1) (a * 10 mod b) b end in loop 0 (a mod b) b