let a = [ 1 .. 10 ] |> Seq.map string |> Set.ofSeq
let b = (stdin.ReadLine ()).Split ' ' |> Set.ofSeq

Set.difference a b |> Set.iter (printfn "%s")