Scanf.scanf "%s" (fun s ->
    let n = String.length s in
    print_endline @@
        if String.sub s (n - 2) 2 = "ai" then String.sub s 0 (n - 2) ^ "AI"
                                         else s ^ "-AI"
)