diff --git a/lib/env.ml b/lib/env.ml
index 34d91ff..e7db676 100644
--- a/lib/env.ml
+++ b/lib/env.ml
@@ -1,7 +1,8 @@
 open Seq
+
 let to_sixteen f = ints 0 |> take 16 |> f |> Array.of_seq
 let ( >>= ) = Option.bind
-let (=?)= Array.mem
+let ( =!? ) = fun el col -> not (Array.mem el col)
 
 let colours =
   let init_default = to_sixteen (map (fun x -> Types.Simple x)) in
@@ -10,7 +11,7 @@ let colours =
   |> Option.fold ~none:init_default ~some:Parse.parse_env_colours
 
 let order =
-  let init_default = to_sixteen (filter (fun i -> i =? [| 0; 8 |])) in
+  let init_default = to_sixteen (filter (fun i -> i =!? [| 0; 8 |])) in
   Sys.getenv_opt "CULR_ORDER"
   >>= (fun s -> if String.length s > 0 then Some s else None)
   |> Option.fold ~none:init_default ~some:Parse.parse_env_order