let binary len n = Array.init len (fun i -> n land (1 lsl i) <> 0)