let make ?(a=false) ?(d=false) ?(c=false) _ =
    match a,d,c with
      | falsefalsefalse -> 0x000
      | true,  falsefalse -> 0x100
      | falsetrue,  false -> 0x010
      | falsefalsetrue  -> 0x001
      | true,  true,  false -> 0x110
      | true,  falsetrue  -> 0x101
      | falsetrue,  true  -> 0x011
      | true,  true,  true  -> 0x111