Scanf.scanf "%s %s %s" (fun r g b ->
    let count s =
        let v =
            if s = "NONE" then 16 else
                16 - (String.length s + 1) / 2
        in
        v * v
    in
    Printf.printf "%d\n" @@ count r * count g * count b
)