Scanf.scanf "%s" (fun n ->
    print_endline @@
        if String.contains n '4' &&
           String.contains n '6' then "Beautiful" else "..."
)