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