(* mod と + のカッコ具合... *) let iof = int_of_float let a1, b1, a2, b2, a3, b3 = Scanf.scanf "%f %f %f %f %f %f\n" @@ fun a b c d e f -> a, b, c, d, e, f let x1, x2, x3 = (iof (a1**b1)),(iof (a2**b2)), (iof (a3**b3)) let () = print_endline (if (x1+x2+x3) mod 2 = 0 then ":-)" else ":-(")