List.init 31 (fun n -> (n, pown 2 n))
let (p, x) = binary |> List.maxBy(fun (p, x) -> n / x = 1)
acc |> List.rev |> Set.ofList
let convert (base2: Set<int>) =
let n = base2 |> Set.maxElement
let res = String.init (n + 1) (fun _ -> "0")
|> Array.mapi( fun i c ->
match base2.Contains i with
let solution = base2 [] >> convert
let n = Console.ReadLine() |> int
let num = Console.ReadLine() |> int