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)) mod 2,(iof (a2**b2)) mod 2, (iof (a3**b3)) mod 2 let () = print_endline (if x1+x2+x3 mod 2 = 1 then ":-)" else ":-(")