let () = let d = read_int () in let d = d * 108 |> string_of_int in let n = String.length d in let rec doit i = if i = n then print_newline () else begin if i = n - 2 then print_char '.'; print_char d.[i]; doit (i + 1) end in doit 0