De-sigil-ification: @

128 files changed, 2483 insertions, 2480 deletions

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index 657bc4faa..09f0a9e4c 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3965,7 +3965,7 @@
     (-> (List a) (List [Nat a])))
   (enumeration' 0 xs))
 
-(macro: .public (value@ tokens)
+(macro: .public (the tokens)
   (case tokens
     (^ (list [_ {#Symbol slot'}] record))
     (do meta_monad
@@ -3988,12 +3988,12 @@
           (meta#in (list (` ({(~ pattern) (~ g!output)} (~ record))))))
 
         _
-        (failure "value@ can only use records.")))
+        (failure "the can only use records.")))
 
     (^ (list [_ {#Tuple slots}] record))
     (meta#in (list (list#mix (: (-> Code Code Code)
                                 (function (_ slot inner)
-                                  (` (..value@ (~ slot) (~ inner)))))
+                                  (` (..the (~ slot) (~ inner)))))
                              record
                              slots)))
 
@@ -4001,10 +4001,10 @@
     (do meta_monad
       [g!_ (..generated_symbol "_")
        g!record (..generated_symbol "record")]
-      (in (list (` (function ((~ g!_) (~ g!record)) (..value@ (~ selector) (~ g!record)))))))
+      (in (list (` (function ((~ g!_) (~ g!record)) (..the (~ selector) (~ g!record)))))))
     
     _
-    (failure "Wrong syntax for value@")))
+    (failure "Wrong syntax for the")))
 
 (def: (open_declaration alias tags my_tag_index [module short] source type)
   (-> Text (List Symbol) Nat Symbol Code Type (Meta (List Code)))
@@ -4200,7 +4200,7 @@
     _
     (failure "Wrong syntax for #")))
 
-(macro: .public (with@ tokens)
+(macro: .public (has tokens)
   (case tokens
     (^ (list [_ {#Symbol slot'}] value record))
     (do meta_monad
@@ -4236,12 +4236,12 @@
             (meta#in (list (` ({(~ pattern) (~ output)} (~ record)))))))
 
         _
-        (failure "with@ can only use records.")))
+        (failure "has can only use records.")))
 
     (^ (list [_ {#Tuple slots}] value record))
     (case slots
       {#End}
-      (failure "Wrong syntax for with@")
+      (failure "Wrong syntax for has")
 
       _
       (do meta_monad
@@ -4252,12 +4252,12 @@
          .let [pairs (zipped/2 slots bindings)
                update_expr (list#mix (: (-> [Code Code] Code Code)
                                         (function (_ [s b] v)
-                                          (` (..with@ (~ s) (~ v) (~ b)))))
+                                          (` (..has (~ s) (~ v) (~ b)))))
                                      value
                                      (list#reversed pairs))
                [_ accesses'] (list#mix (: (-> [Code Code] [Code (List (List Code))] [Code (List (List Code))])
                                           (function (_ [new_slot new_binding] [old_record accesses'])
-                                            [(` (value@ (~ new_slot) (~ new_binding)))
+                                            [(` (the (~ new_slot) (~ new_binding)))
                                              {#Item (list new_binding old_record) accesses'}]))
                                        [record (: (List (List Code)) {#End})]
                                        pairs)
@@ -4270,7 +4270,7 @@
       [g!_ (..generated_symbol "_")
        g!record (..generated_symbol "record")]
       (in (list (` (function ((~ g!_) (~ g!record))
-                     (..with@ (~ selector) (~ value) (~ g!record)))))))
+                     (..has (~ selector) (~ value) (~ g!record)))))))
 
     (^ (list selector))
     (do meta_monad
@@ -4278,12 +4278,12 @@
        g!value (..generated_symbol "value")
        g!record (..generated_symbol "record")]
       (in (list (` (function ((~ g!_) (~ g!value) (~ g!record))
-                     (..with@ (~ selector) (~ g!value) (~ g!record)))))))
+                     (..has (~ selector) (~ g!value) (~ g!record)))))))
 
     _
-    (failure "Wrong syntax for with@")))
+    (failure "Wrong syntax for has")))
 
-(macro: .public (revised@ tokens)
+(macro: .public (revised tokens)
   (case tokens
     (^ (list [_ {#Symbol slot'}] fun record))
     (do meta_monad
@@ -4319,27 +4319,27 @@
             (meta#in (list (` ({(~ pattern) (~ output)} (~ record)))))))
 
         _
-        (failure "revised@ can only use records.")))
+        (failure "revised can only use records.")))
 
     (^ (list [_ {#Tuple slots}] fun record))
     (case slots
       {#End}
-      (failure "Wrong syntax for revised@")
+      (failure "Wrong syntax for revised")
 
       _
       (do meta_monad
         [g!record (..generated_symbol "record")
          g!temp (..generated_symbol "temp")]
         (in (list (` (let [(~ g!record) (~ record)
-                           (~ g!temp) (value@ [(~+ slots)] (~ g!record))]
-                       (with@ [(~+ slots)] ((~ fun) (~ g!temp)) (~ g!record))))))))
+                           (~ g!temp) (the [(~+ slots)] (~ g!record))]
+                       (has [(~+ slots)] ((~ fun) (~ g!temp)) (~ g!record))))))))
 
     (^ (list selector fun))
     (do meta_monad
       [g!_ (..generated_symbol "_")
        g!record (..generated_symbol "record")]
       (in (list (` (function ((~ g!_) (~ g!record))
-                     (..revised@ (~ selector) (~ fun) (~ g!record)))))))
+                     (..revised (~ selector) (~ fun) (~ g!record)))))))
 
     (^ (list selector))
     (do meta_monad
@@ -4347,10 +4347,10 @@
        g!fun (..generated_symbol "fun")
        g!record (..generated_symbol "record")]
       (in (list (` (function ((~ g!_) (~ g!fun) (~ g!record))
-                     (..revised@ (~ selector) (~ g!fun) (~ g!record)))))))
+                     (..revised (~ selector) (~ g!fun) (~ g!record)))))))
     
     _
-    (failure "Wrong syntax for revised@")))
+    (failure "Wrong syntax for revised")))
 
 (macro: .public (^template tokens)
   (case tokens
@@ -4704,7 +4704,7 @@
     (-> a a Bit))
   ("lux is" reference sample))
 
-(macro: .public (^@ tokens)
+(macro: .public (^let tokens)
   (case tokens
     (^ (list& [_meta {#Form (list [_ {#Symbol ["" name]}] pattern)}] body branches))
     (let [g!whole (local_symbol$ name)]
@@ -4713,7 +4713,7 @@
                       branches)))
     
     _
-    (failure (..wrong_syntax_error (symbol ..^@)))))
+    (failure (..wrong_syntax_error (symbol ..^let)))))
 
 (macro: .public (^|> tokens)
   (case tokens
@@ -4740,7 +4740,7 @@
 (def: location
   (Meta Location)
   (function (_ compiler)
-    {#Right [compiler (value@ #location compiler)]}))
+    {#Right [compiler (the #location compiler)]}))
 
 (macro: .public (undefined tokens)
   (case tokens
@@ -4835,7 +4835,7 @@
 (def: target
   (Meta Text)
   (function (_ compiler)
-    {#Right [compiler (value@ [#info #target] compiler)]}))
+    {#Right [compiler (the [#info #target] compiler)]}))
 
 (def: (platform_name choice)
   (-> Code (Meta Text))
diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux
index 8b3762485..a7cc3d764 100644
--- a/stdlib/source/library/lux/abstract/apply.lux
+++ b/stdlib/source/library/lux/abstract/apply.lux
@@ -1,10 +1,10 @@
 (.using
-  [library
-   [lux "*"
-    ["@" target]]]
-  [//
-   [monad {"+" Monad}]
-   ["[0]" functor {"+" Functor}]])
+ [library
+  [lux "*"
+   ["@" target]]]
+ [//
+  [monad {"+" Monad do}]
+  ["[0]" functor {"+" Functor}]])
 
 (type: .public (Apply f)
   (Interface
@@ -21,8 +21,8 @@
         (Apply (All (_ a) (F (G a))))))
   
   (def: &functor
-    (functor.composite (value@ &functor f_apply)
-                       (value@ &functor g_apply)))
+    (functor.composite (the &functor f_apply)
+                       (the &functor g_apply)))
   
   (def: (on fgx fgf)
     ... TODO: Switch from this version to the one below (in comments) ASAP.
diff --git a/stdlib/source/library/lux/abstract/interval.lux b/stdlib/source/library/lux/abstract/interval.lux
index 829c3ca5b..d16e140de 100644
--- a/stdlib/source/library/lux/abstract/interval.lux
+++ b/stdlib/source/library/lux/abstract/interval.lux
@@ -1,11 +1,11 @@
 ... https://en.wikipedia.org/wiki/Interval_(mathematics)
 (.using
-  [library
-   [lux "*"]]
-  [//
-   [equivalence {"+" Equivalence}]
-   ["[0]" order]
-   [enum {"+" Enum}]])
+ [library
+  [lux "*"]]
+ [//
+  [equivalence {"+" Equivalence}]
+  ["[0]" order]
+  [enum {"+" Enum}]])
 
 (type: .public (Interval a)
   (Interface
@@ -76,21 +76,21 @@
 (implementation: .public (union left right)
   (All (_ a) (-> (Interval a) (Interval a) (Interval a)))
 
-  (def: &enum (value@ &enum right))
+  (def: &enum (the &enum right))
   (def: bottom (order.min (# right &order) (# left bottom) (# right bottom)))
   (def: top (order.max (# right &order) (# left top) (# right top))))
 
 (implementation: .public (intersection left right)
   (All (_ a) (-> (Interval a) (Interval a) (Interval a)))
 
-  (def: &enum (value@ &enum right))
+  (def: &enum (the &enum right))
   (def: bottom (order.max (# right &order) (# left bottom) (# right bottom)))
   (def: top (order.min (# right &order) (# left top) (# right top))))
 
 (implementation: .public (complement interval)
   (All (_ a) (-> (Interval a) (Interval a)))
 
-  (def: &enum (value@ &enum interval))
+  (def: &enum (the &enum interval))
   (def: bottom (# interval succ (# interval top)))
   (def: top (# interval pred (# interval bottom))))
 
diff --git a/stdlib/source/library/lux/control/concatenative.lux b/stdlib/source/library/lux/control/concatenative.lux
index 85d5e6ee2..84383bba4 100644
--- a/stdlib/source/library/lux/control/concatenative.lux
+++ b/stdlib/source/library/lux/control/concatenative.lux
@@ -1,30 +1,30 @@
 (.using
-  [library
-   [lux {"-" Alias if loop}
-    ["[0]" meta]
-    [abstract
-     ["[0]" monad]]
-    [control
-     ["[0]" maybe ("[1]#[0]" monad)]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" mix functor)]]]
-    ["[0]" macro {"+" with_symbols}
-     ["[0]" code]
-     ["[0]" template]
-     [syntax {"+" syntax:}
-      ["|[0]|" export]]]
-    [math
-     [number
-      ["n" nat]
-      ["i" int]
-      ["r" rev]
-      ["f" frac]]]]]
-  [//
-   ["<>" parser ("[1]#[0]" monad)
-    ["<[0]>" code {"+" Parser}]]])
+ [library
+  [lux {"-" Alias if loop}
+   ["[0]" meta]
+   [abstract
+    ["[0]" monad]]
+   [control
+    ["[0]" maybe ("[1]#[0]" monad)]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" mix functor)]]]
+   ["[0]" macro {"+" with_symbols}
+    ["[0]" code]
+    ["[0]" template]
+    [syntax {"+" syntax:}
+     ["|[0]|" export]]]
+   [math
+    [number
+     ["n" nat]
+     ["i" int]
+     ["r" rev]
+     ["f" frac]]]]]
+ [//
+  ["<>" parser ("[1]#[0]" monad)
+   ["<[0]>" code {"+" Parser}]]])
 
 (type: Alias
   [Text Code])
@@ -85,20 +85,20 @@
                                (code.replaced (code.local_symbol from) to pre))
                              aliased
                              aliases))]
-    (case [(value@ #bottom inputs)
-           (value@ #bottom outputs)]
+    (case [(the #bottom inputs)
+           (the #bottom outputs)]
       [{.#Some bottomI} {.#Some bottomO}]
       (monad.do meta.monad
-        [inputC (singleton (macro.full_expansion (stack_mix (value@ #top inputs) bottomI)))
-         outputC (singleton (macro.full_expansion (stack_mix (value@ #top outputs) bottomO)))]
+        [inputC (singleton (macro.full_expansion (stack_mix (the #top inputs) bottomI)))
+         outputC (singleton (macro.full_expansion (stack_mix (the #top outputs) bottomO)))]
         (in (list (` (-> (~ (de_alias inputC))
                          (~ (de_alias outputC)))))))
 
       [?bottomI ?bottomO]
       (with_symbols [g!stack]
         (monad.do meta.monad
-          [inputC (singleton (macro.full_expansion (stack_mix (value@ #top inputs) (maybe.else g!stack ?bottomI))))
-           outputC (singleton (macro.full_expansion (stack_mix (value@ #top outputs) (maybe.else g!stack ?bottomO))))]
+          [inputC (singleton (macro.full_expansion (stack_mix (the #top inputs) (maybe.else g!stack ?bottomI))))
+           outputC (singleton (macro.full_expansion (stack_mix (the #top outputs) (maybe.else g!stack ?bottomO))))]
           (with_symbols [g!_]
             (in (list (` (All ((~ g!_) (~ g!stack))
                            (-> (~ (de_alias inputC))
diff --git a/stdlib/source/library/lux/control/concurrency/actor.lux b/stdlib/source/library/lux/control/concurrency/actor.lux
index ded23e008..d534c198c 100644
--- a/stdlib/source/library/lux/control/concurrency/actor.lux
+++ b/stdlib/source/library/lux/control/concurrency/actor.lux
@@ -1,39 +1,39 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" debug]
-    [abstract
-     monad]
-    [control
-     [pipe {"+" case>}]
-     ["[0]" function]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["[0]" io {"+" IO io}]
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" bit]
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" monoid monad)]]]
-    ["[0]" macro {"+" with_symbols}
-     ["[0]" code]
-     [syntax {"+" syntax:}
-      ["|[0]|" input]
-      ["|[0]|" export]]]
-    [math
-     [number
-      ["n" nat]]]
-    ["[0]" meta {"+" monad}]
-    [type {"+" :sharing}
-     ["[0]" abstract {"+" abstract: :representation :abstraction}]]]]
-  [//
-   ["[0]" atom {"+" Atom atom}]
-   ["[0]" async {"+" Async Resolver} ("[1]#[0]" monad)]
-   ["[0]" frp {"+" Channel}]])
+ [library
+  [lux "*"
+   ["[0]" debug]
+   [abstract
+    monad]
+   [control
+    [pipe {"+" case>}]
+    ["[0]" function]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["[0]" io {"+" IO io}]
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" bit]
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" monoid monad)]]]
+   ["[0]" macro {"+" with_symbols}
+    ["[0]" code]
+    [syntax {"+" syntax:}
+     ["|[0]|" input]
+     ["|[0]|" export]]]
+   [math
+    [number
+     ["n" nat]]]
+   ["[0]" meta {"+" monad}]
+   [type {"+" :sharing}
+    ["[0]" abstract {"+" abstract: :representation :abstraction}]]]]
+ [//
+  ["[0]" atom {"+" Atom atom}]
+  ["[0]" async {"+" Async Resolver} ("[1]#[0]" monad)]
+  ["[0]" frp {"+" Channel}]])
 
 (exception: .public poisoned)
 (exception: .public dead)
@@ -89,13 +89,13 @@
                                (:abstraction [#obituary (async.async [])
                                               #mailbox (atom (async.async []))]))
                 process (loop [state (on_init init)
-                               [|mailbox| _] (io.run! (atom.read! (value@ #mailbox (:representation self))))]
+                               [|mailbox| _] (io.run! (atom.read! (the #mailbox (:representation self))))]
                           (do [! async.monad]
                             [[head tail] |mailbox|
                              ?state' (on_mail head state self)]
                             (case ?state'
                               {try.#Failure error}
-                              (let [[_ resolve] (value@ #obituary (:representation self))]
+                              (let [[_ resolve] (the #obituary (:representation self))]
                                 (exec (io.run!
                                        (do io.monad
                                          [pending (..pending tail)]
@@ -108,7 +108,7 @@
 
     (def: .public (alive? actor)
       (All (_ s) (-> (Actor s) (IO Bit)))
-      (let [[obituary _] (value@ #obituary (:representation actor))]
+      (let [[obituary _] (the #obituary (:representation actor))]
         (|> obituary
             async.value
             (# io.functor each
@@ -120,13 +120,13 @@
 
     (def: .public (obituary' actor)
       (All (_ s) (-> (Actor s) (IO (Maybe (Obituary s)))))
-      (let [[obituary _] (value@ #obituary (:representation actor))]
+      (let [[obituary _] (the #obituary (:representation actor))]
         (async.value obituary)))
 
     (def: .public obituary
       (All (_ s) (-> (Actor s) (Async (Obituary s))))
       (|>> :representation
-           (value@ #obituary)
+           (the #obituary)
            product.left))
 
     (def: .public (mail! mail actor)
@@ -136,7 +136,7 @@
         (if alive?
           (let [entry [mail (async.async [])]]
             (do !
-              [|mailbox|&resolve (atom.read! (value@ #mailbox (:representation actor)))]
+              [|mailbox|&resolve (atom.read! (the #mailbox (:representation actor)))]
               (loop [[|mailbox| resolve] |mailbox|&resolve]
                 (do !
                   [|mailbox| (async.value |mailbox|)]
@@ -146,7 +146,7 @@
                       [resolved? (resolve entry)]
                       (if resolved?
                         (do !
-                          [_ (atom.write! (product.right entry) (value@ #mailbox (:representation actor)))]
+                          [_ (atom.write! (product.right entry) (the #mailbox (:representation actor)))]
                           (in {try.#Success []}))
                         (again |mailbox|&resolve)))
                     
@@ -319,26 +319,26 @@
   (with_symbols [g!_ g!return]
     (do meta.monad
       [actor_scope abstract.current
-       .let [g!type (code.local_symbol (value@ abstract.#name actor_scope))
-             g!message (code.local_symbol (value@ #name signature))
-             g!actor_vars (value@ abstract.#type_vars actor_scope)
-             g!all_vars (|> signature (value@ #vars) (list#each code.local_symbol) (list#composite g!actor_vars))
-             g!inputsC (|> signature (value@ #inputs) (list#each product.left))
-             g!inputsT (|> signature (value@ #inputs) (list#each product.right))
-             g!state (|> signature (value@ #state) code.local_symbol)
-             g!self (|> signature (value@ #self) code.local_symbol)]]
+       .let [g!type (code.local_symbol (the abstract.#name actor_scope))
+             g!message (code.local_symbol (the #name signature))
+             g!actor_vars (the abstract.#type_vars actor_scope)
+             g!all_vars (|> signature (the #vars) (list#each code.local_symbol) (list#composite g!actor_vars))
+             g!inputsC (|> signature (the #inputs) (list#each product.left))
+             g!inputsT (|> signature (the #inputs) (list#each product.right))
+             g!state (|> signature (the #state) code.local_symbol)
+             g!self (|> signature (the #self) code.local_symbol)]]
       (in (list (` (def: (~ export_policy) ((~ g!message) (~+ g!inputsC))
                      (All ((~ g!_) (~+ g!all_vars))
                        (-> (~+ g!inputsT)
-                           (..Message (~ (value@ abstract.#abstraction actor_scope))
+                           (..Message (~ (the abstract.#abstraction actor_scope))
                                       (~ output_type))))
                      (function ((~ g!_) (~ g!state) (~ g!self))
-                       (let [(~ g!state) (:as (~ (value@ abstract.#representation actor_scope))
+                       (let [(~ g!state) (:as (~ (the abstract.#representation actor_scope))
                                               (~ g!state))]
                          (|> (~ body)
-                             (: ((~! async.Async) ((~! try.Try) [(~ (value@ abstract.#representation actor_scope))
+                             (: ((~! async.Async) ((~! try.Try) [(~ (the abstract.#representation actor_scope))
                                                                  (~ output_type)])))
-                             (:as ((~! async.Async) ((~! try.Try) [(~ (value@ abstract.#abstraction actor_scope))
+                             (:as ((~! async.Async) ((~! try.Try) [(~ (the abstract.#abstraction actor_scope))
                                                                    (~ output_type)]))))))))
                 )))))
 
diff --git a/stdlib/source/library/lux/control/concurrency/async.lux b/stdlib/source/library/lux/control/concurrency/async.lux
index e19682691..b131ddd1e 100644
--- a/stdlib/source/library/lux/control/concurrency/async.lux
+++ b/stdlib/source/library/lux/control/concurrency/async.lux
@@ -1,21 +1,21 @@
 (.using
-  [library
-   [lux {"-" and or}
-    [abstract
-     [functor {"+" Functor}]
-     [apply {"+" Apply}]
-     ["[0]" monad {"+" Monad do}]]
-    [control
-     [pipe {"+" case>}]
-     ["[0]" function]
-     ["[0]" io {"+" IO io}]]
-    [data
-     ["[0]" product]]
-    [type {"+" :sharing}
-     abstract]]]
-  [//
-   ["[0]" thread]
-   ["[0]" atom {"+" Atom atom}]])
+ [library
+  [lux {"-" and or}
+   [abstract
+    [functor {"+" Functor}]
+    [apply {"+" Apply}]
+    ["[0]" monad {"+" Monad do}]]
+   [control
+    [pipe {"+" case>}]
+    ["[0]" function]
+    ["[0]" io {"+" IO io}]]
+   [data
+    ["[0]" product]]
+   [type {"+" :sharing}
+    abstract]]]
+ [//
+  ["[0]" thread]
+  ["[0]" atom {"+" Atom atom}]])
 
 (abstract: .public (Async a)
   (Atom [(Maybe a) (List (-> a (IO Any)))])
@@ -29,7 +29,7 @@
     (function (resolve value)
       (let [async (:representation async)]
         (do [! io.monad]
-          [(^@ old [_value _observers]) (atom.read! async)]
+          [(^let old [_value _observers]) (atom.read! async)]
           (case _value
             {.#Some _}
             (in #0)
@@ -64,7 +64,7 @@
     (All (_ a) (-> (-> a (IO Any)) (Async a) (IO Any)))
     (do [! io.monad]
       [.let [async (:representation async)]
-       (^@ old [_value _observers]) (atom.read! async)]
+       (^let old [_value _observers]) (atom.read! async)]
       (case _value
         {.#Some value}
         (f value)
diff --git a/stdlib/source/library/lux/control/concurrency/semaphore.lux b/stdlib/source/library/lux/control/concurrency/semaphore.lux
index 56ab29a03..58e664966 100644
--- a/stdlib/source/library/lux/control/concurrency/semaphore.lux
+++ b/stdlib/source/library/lux/control/concurrency/semaphore.lux
@@ -1,28 +1,28 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [monad {"+" do}]]
-    [control
-     [pipe {"+" if>}]
-     ["[0]" io {"+" IO}]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     [text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" queue {"+" Queue}]]]
-    [math
-     [number
-      ["n" nat]
-      ["i" int]]]
-    [type
-     abstract
-     ["[0]" refinement]]]]
-  [//
-   ["[0]" atom {"+" Atom}]
-   ["[0]" async {"+" Async Resolver}]])
+ [library
+  [lux "*"
+   [abstract
+    [monad {"+" do}]]
+   [control
+    [pipe {"+" if>}]
+    ["[0]" io {"+" IO}]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" queue {"+" Queue}]]]
+   [math
+    [number
+     ["n" nat]
+     ["i" int]]]
+   [type
+    abstract
+    ["[0]" refinement]]]]
+ [//
+  ["[0]" atom {"+" Atom}]
+  ["[0]" async {"+" Async Resolver}]])
 
 (type: State
   (Record
@@ -51,12 +51,12 @@
                            (async.async []))]
       (exec
         (io.run!
-         (with_expansions [<had_open_position?> (as_is (value@ #open_positions) (i.> -1))]
+         (with_expansions [<had_open_position?> (as_is (the #open_positions) (i.> -1))]
            (do io.monad
-             [[_ state'] (atom.update! (|>> (revised@ #open_positions --)
+             [[_ state'] (atom.update! (|>> (revised #open_positions --)
                                             (if> [<had_open_position?>]
                                                  []
-                                                 [(revised@ #waiting_list (queue.end sink))]))
+                                                 [(revised #waiting_list (queue.end sink))]))
                                        semaphore)]
              (with_expansions [<go_ahead> (sink [])
                                <get_in_line> (in false)]
@@ -75,23 +75,23 @@
       (async.future
        (do [! io.monad]
          [[pre post] (atom.update! (function (_ state)
-                                     (if (i.= (.int (value@ #max_positions state))
-                                              (value@ #open_positions state))
+                                     (if (i.= (.int (the #max_positions state))
+                                              (the #open_positions state))
                                        state
                                        (|> state
-                                           (revised@ #open_positions ++)
-                                           (revised@ #waiting_list queue.next))))
+                                           (revised #open_positions ++)
+                                           (revised #waiting_list queue.next))))
                                    semaphore)]
          (if (same? pre post)
-           (in (exception.except ..semaphore_is_maxed_out [(value@ #max_positions pre)]))
+           (in (exception.except ..semaphore_is_maxed_out [(the #max_positions pre)]))
            (do !
-             [_ (case (queue.front (value@ #waiting_list pre))
+             [_ (case (queue.front (the #waiting_list pre))
                   {.#None}
                   (in true)
 
                   {.#Some sink}
                   (sink []))]
-             (in {try.#Success (value@ #open_positions post)})))))))
+             (in {try.#Success (the #open_positions post)})))))))
   )
 
 (abstract: .public Mutex
@@ -151,13 +151,13 @@
     [(def: (<phase> (^:representation barrier))
        (-> Barrier (Async Any))
        (do async.monad
-         [.let [limit (refinement.value (value@ #limit barrier))
+         [.let [limit (refinement.value (the #limit barrier))
                 goal <goal>
-                [_ count] (io.run! (atom.update! <update> (value@ #count barrier)))
+                [_ count] (io.run! (atom.update! <update> (the #count barrier)))
                 reached? (n.= goal count)]]
          (if reached?
-           (..un_block! (-- limit) (value@ <turnstile> barrier))
-           (..wait! (value@ <turnstile> barrier)))))]
+           (..un_block! (-- limit) (the <turnstile> barrier))
+           (..wait! (the <turnstile> barrier)))))]
 
     [start! ++ limit #start_turnstile]
     [end!   -- 0     #end_turnstile]
diff --git a/stdlib/source/library/lux/control/concurrency/stm.lux b/stdlib/source/library/lux/control/concurrency/stm.lux
index c4ebebad4..22ebc470e 100644
--- a/stdlib/source/library/lux/control/concurrency/stm.lux
+++ b/stdlib/source/library/lux/control/concurrency/stm.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [functor {"+" Functor}]
-     [apply {"+" Apply}]
-     ["[0]" monad {"+" Monad do}]]
-    [control
-     ["[0]" io {"+" IO io}]
-     ["[0]" maybe]
-     ["[0]" try]]
-    [data
-     ["[0]" product]
-     [collection
-      ["[0]" list]]]
-    [type
-     abstract]]]
-  [//
-   ["[0]" atom {"+" Atom atom}]
-   ["[0]" async {"+" Async Resolver}]
-   ["[0]" frp {"+" Channel Sink}]])
+ [library
+  [lux "*"
+   [abstract
+    [functor {"+" Functor}]
+    [apply {"+" Apply}]
+    ["[0]" monad {"+" Monad do}]]
+   [control
+    ["[0]" io {"+" IO io}]
+    ["[0]" maybe]
+    ["[0]" try]]
+   [data
+    ["[0]" product]
+    [collection
+     ["[0]" list]]]
+   [type
+    abstract]]]
+ [//
+  ["[0]" atom {"+" Atom atom}]
+  ["[0]" async {"+" Async Resolver}]
+  ["[0]" frp {"+" Channel Sink}]])
 
 (type: (Observer a)
   (-> a (IO Any)))
@@ -46,7 +46,7 @@
     (All (_ a) (-> a (Var a) (IO Any)))
     (do [! io.monad]
       [.let [var' (:representation var)]
-       (^@ old [old_value observers]) (atom.read! var')
+       (^let old [old_value observers]) (atom.read! var')
        succeeded? (atom.compare_and_swap! old [new_value observers] var')]
       (if succeeded?
         (do !
diff --git a/stdlib/source/library/lux/control/concurrency/thread.lux b/stdlib/source/library/lux/control/concurrency/thread.lux
index 0f5c30601..bfb4dc24f 100644
--- a/stdlib/source/library/lux/control/concurrency/thread.lux
+++ b/stdlib/source/library/lux/control/concurrency/thread.lux
@@ -178,14 +178,14 @@
                           (do !
                             [now (# ! each (|>> instant.millis .nat) instant.now)
                              .let [[ready pending] (list.partition (function (_ thread)
-                                                                     (|> (value@ #creation thread)
-                                                                         (n.+ (value@ #delay thread))
+                                                                     (|> (the #creation thread)
+                                                                         (n.+ (the #delay thread))
                                                                          (n.<= now)))
                                                                    threads)]
                              swapped? (atom.compare_and_swap! threads pending ..runner)]
                             (if swapped?
                               (do !
-                                [_ (monad.each ! (|>> (value@ #action) ..execute! io.io) ready)]
+                                [_ (monad.each ! (|>> (the #action) ..execute! io.io) ready)]
                                 (again []))
                               (panic! (exception.error ..cannot_continue_running_threads []))))
                           )))))))
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux
index 5e78a155e..942ebbfd8 100644
--- a/stdlib/source/library/lux/control/exception.lux
+++ b/stdlib/source/library/lux/control/exception.lux
@@ -1,30 +1,30 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" macro]
-    ["[0]" meta]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" maybe]
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text ("[1]#[0]" monoid)]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]]]
-    [macro
-     ["[0]" code]
-     [syntax {"+" syntax:}
-      ["|[0]|" input]
-      ["[0]" type "_"
-       ["|[1]_[0]|" variable]]]]
-    [math
-     [number
-      ["n" nat ("[1]#[0]" decimal)]]]]]
-  [//
-   ["//" try {"+" Try}]])
+ [library
+  [lux "*"
+   ["[0]" macro]
+   ["[0]" meta]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" maybe]
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text ("[1]#[0]" monoid)]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]]]
+   [macro
+    ["[0]" code]
+    [syntax {"+" syntax:}
+     ["|[0]|" input]
+     ["[0]" type "_"
+      ["|[1]_[0]|" variable]]]]
+   [math
+    [number
+     ["n" nat ("[1]#[0]" decimal)]]]]]
+ [//
+  ["//" try {"+" Try}]])
 
 (type: .public (Exception a)
   (Record
@@ -33,7 +33,7 @@
 
 (def: .public (match? exception error)
   (All (_ e) (-> (Exception e) Text Bit))
-  (text.starts_with? (value@ #label exception) error))
+  (text.starts_with? (the #label exception) error))
 
 (def: .public (when exception then try)
   (All (_ e a)
@@ -44,7 +44,7 @@
     {//.#Success output}
 
     {//.#Failure error}
-    (let [reference (value@ #label exception)]
+    (let [reference (the #label exception)]
       (if (text.starts_with? reference error)
         {//.#Success (|> error
                          (text.clip_since (text.size reference))
@@ -64,7 +64,7 @@
 
 (def: .public (error exception message)
   (All (_ e) (-> (Exception e) e Text))
-  ((value@ ..#constructor exception) message))
+  ((the ..#constructor exception) message))
 
 (def: .public (except exception message)
   (All (_ e a) (-> (Exception e) e (Try a)))
@@ -99,10 +99,10 @@
       (in (list (` (def: (~ export_policy)
                      (~ g!self)
                      (All ((~ g!_) (~+ (list#each |type_variable|.format t_vars)))
-                       (..Exception [(~+ (list#each (value@ |input|.#type) inputs))]))
+                       (..Exception [(~+ (list#each (the |input|.#type) inputs))]))
                      (let [(~ g!descriptor) (~ (code.text descriptor))]
                        [..#label (~ g!descriptor)
-                        ..#constructor (function ((~ g!self) [(~+ (list#each (value@ |input|.#binding) inputs))])
+                        ..#constructor (function ((~ g!self) [(~+ (list#each (the |input|.#binding) inputs))])
                                          ((~! text#composite) (~ g!descriptor)
                                           (~ (maybe.else (' "") body))))]))))))))
 
diff --git a/stdlib/source/library/lux/control/function/mutual.lux b/stdlib/source/library/lux/control/function/mutual.lux
index b59578d3a..102457383 100644
--- a/stdlib/source/library/lux/control/function/mutual.lux
+++ b/stdlib/source/library/lux/control/function/mutual.lux
@@ -1,28 +1,28 @@
 (.using
-  [library
-   [lux {"-" Definition let def: macro}
-    ["[0]" meta]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]
-      [dictionary
-       ["[0]" plist {"+" PList}]]]]
-    ["[0]" macro
-     ["[0]" local]
-     ["[0]" code]
-     [syntax {"+" syntax:}
-      ["[0]" declaration {"+" Declaration}]]]]]
-  ["[0]" //])
+ [library
+  [lux {"-" Definition let def: macro}
+   ["[0]" meta]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]
+     [dictionary
+      ["[0]" plist {"+" PList}]]]]
+   ["[0]" macro
+    ["[0]" local]
+    ["[0]" code]
+    [syntax {"+" syntax:}
+     ["[0]" declaration {"+" Declaration}]]]]]
+ ["[0]" //])
 
 (type: Mutual
   (Record
@@ -42,8 +42,8 @@
   (-> (List Code) Code [Code Mutual] Code)
   (` (function ((~ g!name) (~ g!context))
        (.let [[(~+ context)] (~ g!context)]
-         (function (~ (declaration.format (value@ #declaration mutual)))
-           (~ (value@ #body mutual)))))))
+         (function (~ (declaration.format (the #declaration mutual)))
+           (~ (the #body mutual)))))))
 
 (.def: (macro g!context g!self)
   (-> Code Code Macro)
@@ -59,10 +59,10 @@
     (in (list body))
     
     {.#Item mutual {.#End}}
-    (.let [g!name (|> mutual (value@ [#declaration declaration.#name]) code.local_symbol)]
-      (in (list (` (.let [(~ g!name) (: (~ (value@ #type mutual))
-                                        (function (~ (declaration.format (value@ #declaration mutual)))
-                                          (~ (value@ #body mutual))))]
+    (.let [g!name (|> mutual (the [#declaration declaration.#name]) code.local_symbol)]
+      (in (list (` (.let [(~ g!name) (: (~ (the #type mutual))
+                                        (function (~ (declaration.format (the #declaration mutual)))
+                                          (~ (the #body mutual))))]
                      (~ body))))))
     
     _
@@ -75,12 +75,12 @@
                                       (list.zipped/2 hidden_names
                                                      functions))
                context_types (list#each (function (_ mutual)
-                                          (` (-> (~ g!context) (~ (value@ #type mutual)))))
+                                          (` (-> (~ g!context) (~ (the #type mutual)))))
                                         functions)
-               user_names (list#each (|>> (value@ [#declaration declaration.#name]) code.local_symbol)
+               user_names (list#each (|>> (the [#declaration declaration.#name]) code.local_symbol)
                                      functions)]
          g!pop (local.push (list#each (function (_ [g!name mutual])
-                                        [[here_name (value@ [#declaration declaration.#name] mutual)]
+                                        [[here_name (the [#declaration declaration.#name] mutual)]
                                          (..macro g!context g!name)])
                                       (list.zipped/2 hidden_names
                                                      functions)))]
@@ -125,19 +125,19 @@
                                   functions)
          .let [definitions (list#each (..mutual_definition hidden_names g!context)
                                       (list.zipped/2 hidden_names
-                                                     (list#each (value@ #mutual) functions)))
+                                                     (list#each (the #mutual) functions)))
                context_types (list#each (function (_ mutual)
-                                          (` (-> (~ g!context) (~ (value@ [#mutual #type] mutual)))))
+                                          (` (-> (~ g!context) (~ (the [#mutual #type] mutual)))))
                                         functions)
-               user_names (list#each (|>> (value@ [#mutual #declaration declaration.#name]) code.local_symbol)
+               user_names (list#each (|>> (the [#mutual #declaration declaration.#name]) code.local_symbol)
                                      functions)]
          g!pop (local.push (list#each (function (_ [g!name mutual])
-                                        [[here_name (value@ [#mutual #declaration declaration.#name] mutual)]
+                                        [[here_name (the [#mutual #declaration declaration.#name] mutual)]
                                          (..macro g!context g!name)])
                                       (list.zipped/2 hidden_names
                                                      functions)))]
         (in (list& (` (.def: (~ g!context)
-                        [(~+ (list#each (value@ [#mutual #type]) functions))]
+                        [(~+ (list#each (the [#mutual #type]) functions))]
                         (.let [(~ g!context) (: (Rec (~ g!context)
                                                   [(~+ context_types)])
                                                 [(~+ definitions)])
@@ -147,11 +147,11 @@
                                           user_names))])))
                    g!pop
                    (list#each (function (_ mutual)
-                                (.let [g!name (|> mutual (value@ [#mutual #declaration declaration.#name]) code.local_symbol)]
+                                (.let [g!name (|> mutual (the [#mutual #declaration declaration.#name]) code.local_symbol)]
                                   (` (.def:
-                                       (~ (value@ #export_policy mutual))
+                                       (~ (the #export_policy mutual))
                                        (~ g!name)
-                                       (~ (value@ [#mutual #type] mutual))
+                                       (~ (the [#mutual #type] mutual))
                                        (.let [[(~+ user_names)] (~ g!context)]
                                          (~ g!name))))))
                               functions)))))))
diff --git a/stdlib/source/library/lux/control/maybe.lux b/stdlib/source/library/lux/control/maybe.lux
index af48067c5..386548905 100644
--- a/stdlib/source/library/lux/control/maybe.lux
+++ b/stdlib/source/library/lux/control/maybe.lux
@@ -103,7 +103,7 @@
   (All (_ M) (-> (Monad M) (Monad (All (_ a) (M (Maybe a))))))
 
   (def: &functor
-    (functor.composite (value@ monad.&functor monad)
+    (functor.composite (the monad.&functor monad)
                        ..functor))
 
   (def: in
diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux
index f2b2e7f5d..a3430e4d7 100644
--- a/stdlib/source/library/lux/control/parser/binary.lux
+++ b/stdlib/source/library/lux/control/parser/binary.lux
@@ -1,30 +1,30 @@
 (.using
-  [library
-   [lux {"-" and or nat int rev list type symbol}
-    [type {"+" :sharing}]
-    [abstract
-     [hash {"+" Hash}]
-     [monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["/" binary {"+" Binary}]
-     [text
-      ["%" format {"+" format}]
-      [encoding
-       ["[0]" utf8]]]
-     [collection
-      ["[0]" list]
-      ["[0]" sequence {"+" Sequence}]
-      ["[0]" set {"+" Set}]]]
-    [macro
-     ["[0]" template]]
-    [math
-     [number
-      ["n" nat]
-      ["[0]" frac]]]]]
-  ["[0]" // ("[1]#[0]" monad)])
+ [library
+  [lux {"-" and or nat int rev list type symbol}
+   [type {"+" :sharing}]
+   [abstract
+    [hash {"+" Hash}]
+    [monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["/" binary {"+" Binary}]
+    [text
+     ["%" format {"+" format}]
+     [encoding
+      ["[0]" utf8]]]
+    [collection
+     ["[0]" list]
+     ["[0]" sequence {"+" Sequence}]
+     ["[0]" set {"+" Set}]]]
+   [macro
+    ["[0]" template]]
+   [math
+    [number
+     ["n" nat]
+     ["[0]" frac]]]]]
+ ["[0]" // ("[1]#[0]" monad)])
 
 (type: .public Offset
   Nat)
@@ -52,17 +52,17 @@
 
 (def: .public end?
   (Parser Bit)
-  (function (_ (^@ input [offset data]))
+  (function (_ (^let input [offset data]))
     {try.#Success [input (n.= offset (/.size data))]}))
 
 (def: .public offset
   (Parser Offset)
-  (function (_ (^@ input [offset data]))
+  (function (_ (^let input [offset data]))
     {try.#Success [input offset]}))
 
 (def: .public remaining
   (Parser Nat)
-  (function (_ (^@ input [offset data]))
+  (function (_ (^let input [offset data]))
     {try.#Success [input (n.- offset (/.size data))]}))
 
 (type: .public Size
diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux
index de79a42b5..8fe67d90f 100644
--- a/stdlib/source/library/lux/control/parser/text.lux
+++ b/stdlib/source/library/lux/control/parser/text.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux {"-" and not local}
-    [abstract
-     [monad {"+" Monad do}]]
-    [control
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["/" text {"+" Char} ("[1]#[0]" monoid)]
-     ["[0]" product]
-     [collection
-      ["[0]" list ("[1]#[0]" mix)]]]
-    [macro
-     ["[0]" code]
-     ["[0]" template]]
-    [math
-     [number
-      ["n" nat ("[1]#[0]" decimal)]]]]]
-  ["[0]" //])
+ [library
+  [lux {"-" and not local}
+   [abstract
+    [monad {"+" Monad do}]]
+   [control
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["/" text {"+" Char} ("[1]#[0]" monoid)]
+    ["[0]" product]
+    [collection
+     ["[0]" list ("[1]#[0]" mix)]]]
+   [macro
+    ["[0]" code]
+    ["[0]" template]]
+   [math
+    [number
+     ["n" nat ("[1]#[0]" decimal)]]]]]
+ ["[0]" //])
 
 (type: .public Offset
   Nat)
@@ -68,7 +68,7 @@
 
 (def: .public offset
   (Parser Offset)
-  (function (_ (^@ input [offset tape]))
+  (function (_ (^let input [offset tape]))
     {try.#Success [input offset]}))
 
 (def: (with_slices parser)
@@ -139,14 +139,14 @@
 
 (def: .public end!
   (Parser Any)
-  (function (_ (^@ input [offset tape]))
+  (function (_ (^let input [offset tape]))
     (if (n.= offset (/.size tape))
       {try.#Success [input []]}
       (exception.except ..unconsumed_input input))))
 
 (def: .public next
   (Parser Text)
-  (function (_ (^@ input [offset tape]))
+  (function (_ (^let input [offset tape]))
     (case (/.char offset tape)
       {.#Some output}
       {try.#Success [input (/.of_char output)]}
@@ -156,7 +156,7 @@
 
 (def: .public remaining
   (Parser Text)
-  (function (_ (^@ input [offset tape]))
+  (function (_ (^let input [offset tape]))
     {try.#Success [input (..left_over offset tape)]}))
 
 (def: .public (range bottom top)
@@ -350,7 +350,7 @@
   (-> (Parser Slice) (Parser Text))
   (do //.monad
     [[basis distance] parser]
-    (function (_ (^@ input [offset tape]))
+    (function (_ (^let input [offset tape]))
       (case (/.clip basis distance tape)
         {.#Some output}
         {try.#Success [input output]}
diff --git a/stdlib/source/library/lux/control/reader.lux b/stdlib/source/library/lux/control/reader.lux
index bac66ac07..6a81806ac 100644
--- a/stdlib/source/library/lux/control/reader.lux
+++ b/stdlib/source/library/lux/control/reader.lux
@@ -1,10 +1,11 @@
 (.using
-  [library
-   [lux {"-" local}
-    [abstract
-     [apply {"+" Apply}]
-     ["[0]" functor {"+" Functor}]
-     ["[0]" monad {"+" Monad do}]]]])
+ [library
+  [lux {"-" local}
+   ["@" target]
+   [abstract
+    [apply {"+" Apply}]
+    ["[0]" functor {"+" Functor}]
+    ["[0]" monad {"+" Monad do}]]]])
 
 (type: .public (Reader r a)
   (-> r a))
@@ -50,10 +51,10 @@
       (mma env env))))
 
 (implementation: .public (with monad)
-  (All (_ M) (-> (Monad M) (All (_ e) (Monad (All (_ a) (Reader e (M a)))))))
+  (All (_ !) (-> (Monad !) (All (_ e) (Monad (All (_ a) (Reader e (! a)))))))
 
   (def: &functor
-    (functor.composite ..functor (value@ monad.&functor monad)))
+    (functor.composite ..functor (the monad.&functor monad)))
 
   (def: in
     (|>> (# monad in)
@@ -66,5 +67,5 @@
         (result env eMa)))))
 
 (def: .public lifted
-  (All (_ M e a) (-> (M a) (Reader e (M a))))
+  (All (_ ! e a) (-> (! a) (Reader e (! a))))
   (# ..monad in))
diff --git a/stdlib/source/library/lux/control/region.lux b/stdlib/source/library/lux/control/region.lux
index a0297e569..0aa7d8939 100644
--- a/stdlib/source/library/lux/control/region.lux
+++ b/stdlib/source/library/lux/control/region.lux
@@ -1,19 +1,19 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [functor {"+" Functor}]
-     [apply {"+" Apply}]
-     ["[0]" monad {"+" Monad do}]]
-    [control
-     ["[0]" try {"+" Try}]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" mix)]]]]]
-  [//
-   ["[0]" exception {"+" Exception exception:}]])
+ [library
+  [lux "*"
+   [abstract
+    [functor {"+" Functor}]
+    [apply {"+" Apply}]
+    ["[0]" monad {"+" Monad do}]]
+   [control
+    ["[0]" try {"+" Try}]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" mix)]]]]]
+ [//
+  ["[0]" exception {"+" Exception exception:}]])
 
 (type: (Cleaner r !)
   (-> r (! (Try Any))))
@@ -93,7 +93,7 @@
         (All (_ r) (Apply (Region r !)))))
 
   (def: &functor
-    (..functor (value@ monad.&functor super)))
+    (..functor (the monad.&functor super)))
 
   (def: (on fa ff)
     (function (_ [region cleaners])
@@ -118,7 +118,7 @@
         (All (_ r) (Monad (Region r !)))))
 
   (def: &functor
-    (..functor (value@ monad.&functor super)))
+    (..functor (the monad.&functor super)))
 
   (def: (in value)
     (function (_ [region cleaners])
diff --git a/stdlib/source/library/lux/control/try.lux b/stdlib/source/library/lux/control/try.lux
index a82b72d33..d1722f394 100644
--- a/stdlib/source/library/lux/control/try.lux
+++ b/stdlib/source/library/lux/control/try.lux
@@ -1,13 +1,14 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [apply {"+" Apply}]
-     [equivalence {"+" Equivalence}]
-     ["[0]" functor {"+" Functor}]
-     ["[0]" monad {"+" Monad do}]]
-    [meta
-     ["[0]" location]]]])
+ [library
+  [lux "*"
+   ["@" target]
+   [abstract
+    [apply {"+" Apply}]
+    [equivalence {"+" Equivalence}]
+    ["[0]" functor {"+" Functor}]
+    ["[0]" monad {"+" Monad do}]]
+   [meta
+    ["[0]" location]]]])
 
 (type: .public (Try a)
   (Variant
@@ -68,7 +69,7 @@
   (All (_ !) (-> (Monad !) (Monad (All (_ a) (! (Try a))))))
   
   (def: &functor
-    (functor.composite (value@ monad.&functor monad)
+    (functor.composite (the monad.&functor monad)
                        ..functor))
 
   (def: in
diff --git a/stdlib/source/library/lux/control/writer.lux b/stdlib/source/library/lux/control/writer.lux
index 5b01af67b..06676e8eb 100644
--- a/stdlib/source/library/lux/control/writer.lux
+++ b/stdlib/source/library/lux/control/writer.lux
@@ -1,12 +1,12 @@
 (.using
-  [library
-   [lux "*"
-    ["@" target]
-    [abstract
-     [monoid {"+" Monoid}]
-     [apply {"+" Apply}]
-     ["[0]" functor {"+" Functor}]
-     ["[0]" monad {"+" Monad do}]]]])
+ [library
+  [lux "*"
+   ["@" target]
+   [abstract
+    [monoid {"+" Monoid}]
+    [apply {"+" Apply}]
+    ["[0]" functor {"+" Functor}]
+    ["[0]" monad {"+" Monad do}]]]])
 
 (type: .public (Writer log value)
   (Record
@@ -53,7 +53,7 @@
   (All (_ l M) (-> (Monoid l) (Monad M) (Monad (All (_ a) (M (Writer l a))))))
 
   (def: &functor
-    (functor.composite (value@ monad.&functor monad)
+    (functor.composite (the monad.&functor monad)
                        ..functor))
 
   (def: in
diff --git a/stdlib/source/library/lux/data/collection/dictionary.lux b/stdlib/source/library/lux/data/collection/dictionary.lux
index e61a79230..6ff9c51fe 100644
--- a/stdlib/source/library/lux/data/collection/dictionary.lux
+++ b/stdlib/source/library/lux/data/collection/dictionary.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux "*"
+  [lux {"-" has revised}
    [abstract
     [hash {"+" Hash}]
     [equivalence {"+" Equivalence}]
@@ -263,7 +263,7 @@
         (Hash k) Level
         Bit_Map (Base k v)
         (Array (Node k v))))
-  (product.right (list#mix (function (_ hierarchy_idx (^@ default [base_idx h_array]))
+  (product.right (list#mix (function (_ hierarchy_idx (^let default [base_idx h_array]))
                              (if (with_bit_position? (to_bit_position hierarchy_idx)
                                    bitmap)
                                [(++ base_idx)
@@ -564,7 +564,7 @@
 
 (def: .public key_hash
   (All (_ k v) (-> (Dictionary k v) (Hash k)))
-  (value@ ..#hash))
+  (the ..#hash))
 
 (def: .public (empty key_hash)
   (All (_ k v) (-> (Hash k) (Dictionary k v)))
@@ -618,7 +618,7 @@
 
 (def: .public size
   (All (_ k v) (-> (Dictionary k v) Nat))
-  (|>> (value@ #root) ..node#size))
+  (|>> (the #root) ..node#size))
 
 (def: .public empty?
   (All (_ k v) (-> (Dictionary k v) Bit))
@@ -626,7 +626,7 @@
 
 (def: .public entries
   (All (_ k v) (-> (Dictionary k v) (List [k v])))
-  (|>> (value@ #root) ..node#entries))
+  (|>> (the #root) ..node#entries))
 
 (def: .public (of_list key_hash kvs)
   (All (_ k v) (-> (Hash k) (List [k v]) (Dictionary k v)))
@@ -638,7 +638,7 @@
 (template [<side> <name>]
   [(def: .public <name>
      (All (_ k v) (-> (Dictionary k v) (List <side>)))
-     (|>> (value@ #root)
+     (|>> (the #root)
           (node#mix (function (_ [k v] bundle)
                       {.#Item <side> bundle})
                     {.#End})))]
@@ -652,7 +652,7 @@
   (node#mix (function (_ [key val] dict)
               (has key val dict))
             dict1
-            (value@ #root dict2)))
+            (the #root dict2)))
 
 (def: .public (merged_with f dict2 dict1)
   (All (_ k v) (-> (-> v v v) (Dictionary k v) (Dictionary k v) (Dictionary k v)))
@@ -664,7 +664,7 @@
                 {.#Some val1}
                 (has key (f val2 val1) dict)))
             dict1
-            (value@ #root dict2)))
+            (the #root dict2)))
 
 (def: .public (re_bound from_key to_key dict)
   (All (_ k v) (-> k k (Dictionary k v) (Dictionary k v)))
@@ -729,4 +729,4 @@
   (All (_ k) (Functor (Dictionary k)))
   
   (def: (each f fa)
-    (revised@ #root (# ..node_functor each f) fa)))
+    (.revised #root (# ..node_functor each f) fa)))
diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
index 7437962f6..13f9c1568 100644
--- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
+++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
@@ -1,19 +1,19 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     equivalence
-     [monad {"+" Monad do}]
-     ["[0]" order {"+" Order}]]
-    [control
-     ["[0]" maybe]]
-    [data
-     ["p" product]
-     [collection
-      ["[0]" list ("[1]#[0]" monoid mix)]]]
-    [math
-     [number
-      ["n" nat]]]]])
+ [library
+  [lux {"-" has revised}
+   [abstract
+    equivalence
+    [monad {"+" Monad do}]
+    ["[0]" order {"+" Order}]]
+   [control
+    ["[0]" maybe]]
+   [data
+    ["p" product]
+    [collection
+     ["[0]" list ("[1]#[0]" monoid mix)]]]
+   [math
+    [number
+     ["n" nat]]]]])
 
 (def: error_message
   "Invariant violation")
@@ -58,59 +58,59 @@
 ... TODO: Must improve it as soon as bug is fixed.
 (def: .public (value key dict)
   (All (_ k v) (-> k (Dictionary k v) (Maybe v)))
-  (let [... (^open "_#[0]") (value@ #&order dict)
+  (let [... (^open "_#[0]") (the #&order dict)
         ]
-    (loop [node (value@ #root dict)]
+    (loop [node (the #root dict)]
       (case node
         {.#None}
         {.#None}
 
         {.#Some node}
-        (let [node_key (value@ #key node)]
+        (let [node_key (the #key node)]
           (cond (# dict = node_key key)
                 ... (_#= node_key key)
-                {.#Some (value@ #value node)}
+                {.#Some (the #value node)}
 
                 (# dict < node_key key)
                 ... (_#< node_key key)
-                (again (value@ #left node))
+                (again (the #left node))
 
-                ... (_#> (value@ #key node) key)
-                (again (value@ #right node))))
+                ... (_#> (the #key node) key)
+                (again (the #right node))))
         ))))
 
 ... TODO: Doing inneficient access of Order functions due to compiler bug.
 ... TODO: Must improve it as soon as bug is fixed.
 (def: .public (key? dict key)
   (All (_ k v) (-> (Dictionary k v) k Bit))
-  (let [... (^open "_#[0]") (value@ #&order dict)
+  (let [... (^open "_#[0]") (the #&order dict)
         ]
-    (loop [node (value@ #root dict)]
+    (loop [node (the #root dict)]
       (case node
         {.#None}
         #0
 
         {.#Some node}
-        (let [node_key (value@ #key node)]
+        (let [node_key (the #key node)]
           (or (# dict = node_key key)
               ... (_#= node_key key)
               (if (# dict < node_key key)
                 ... (_#< node_key key)
-                (again (value@ #left node))
-                (again (value@ #right node)))))))))
+                (again (the #left node))
+                (again (the #right node)))))))))
 
 (template [<name> <side>]
   [(def: .public (<name> dict)
      (All (_ k v) (-> (Dictionary k v) (Maybe v)))
-     (case (value@ #root dict)
+     (case (the #root dict)
        {.#None}
        {.#None}
 
        {.#Some node}
        (loop [node node]
-         (case (value@ <side> node)
+         (case (the <side> node)
            {.#None}
-           {.#Some (value@ #value node)}
+           {.#Some (the #value node)}
 
            {.#Some side}
            (again side)))))]
@@ -121,14 +121,14 @@
 
 (def: .public (size dict)
   (All (_ k v) (-> (Dictionary k v) Nat))
-  (loop [node (value@ #root dict)]
+  (loop [node (the #root dict)]
     (case node
       {.#None}
       0
 
       {.#Some node}
-      (++ (n.+ (again (value@ #left node))
-               (again (value@ #right node)))))))
+      (++ (n.+ (again (the #left node))
+               (again (the #right node)))))))
 
 (def: .public empty?
   (All (_ k v) (-> (Dictionary k v) Bit))
@@ -137,9 +137,9 @@
 (template [<name> <other_color> <self_color> <no_change>]
   [(def: (<name> self)
      (All (_ k v) (-> (Node k v) (Node k v)))
-     (case (value@ #color self)
+     (case (the #color self)
        {<other_color>}
-       (with@ #color {<self_color>} self)
+       (.has #color {<self_color>} self)
 
        {<self_color>}
        <no_change>
@@ -151,46 +151,46 @@
 
 (def: (with_left addition center)
   (All (_ k v) (-> (Node k v) (Node k v) (Node k v)))
-  (case (value@ #color center)
+  (case (the #color center)
     {#Red}
-    (red (value@ #key center)
-         (value@ #value center)
+    (red (the #key center)
+         (the #value center)
          {.#Some addition}
-         (value@ #right center))
+         (the #right center))
     
     {#Black}
     (with_expansions
-      [<default_behavior> (as_is (black (value@ #key center)
-                                        (value@ #value center)
+      [<default_behavior> (as_is (black (the #key center)
+                                        (the #value center)
                                         {.#Some addition}
-                                        (value@ #right center)))]
-      (case (value@ #color addition)
+                                        (the #right center)))]
+      (case (the #color addition)
         {#Red}
-        (case (value@ #left addition)
+        (case (the #left addition)
           (^multi {.#Some left}
-                  [(value@ #color left) {#Red}])
-          (red (value@ #key addition)
-               (value@ #value addition)
+                  [(the #color left) {#Red}])
+          (red (the #key addition)
+               (the #value addition)
                {.#Some (blackened left)}
-               {.#Some (black (value@ #key center)
-                              (value@ #value center)
-                              (value@ #right addition)
-                              (value@ #right center))})
+               {.#Some (black (the #key center)
+                              (the #value center)
+                              (the #right addition)
+                              (the #right center))})
 
           _
-          (case (value@ #right addition)
+          (case (the #right addition)
             (^multi {.#Some right}
-                    [(value@ #color right) {#Red}])
-            (red (value@ #key right)
-                 (value@ #value right)
-                 {.#Some (black (value@ #key addition)
-                                (value@ #value addition)
-                                (value@ #left addition)
-                                (value@ #left right))}
-                 {.#Some (black (value@ #key center)
-                                (value@ #value center)
-                                (value@ #right right)
-                                (value@ #right center))})
+                    [(the #color right) {#Red}])
+            (red (the #key right)
+                 (the #value right)
+                 {.#Some (black (the #key addition)
+                                (the #value addition)
+                                (the #left addition)
+                                (the #left right))}
+                 {.#Some (black (the #key center)
+                                (the #value center)
+                                (the #right right)
+                                (the #right center))})
 
             _
             <default_behavior>))
@@ -200,46 +200,46 @@
 
 (def: (with_right addition center)
   (All (_ k v) (-> (Node k v) (Node k v) (Node k v)))
-  (case (value@ #color center)
+  (case (the #color center)
     {#Red}
-    (red (value@ #key center)
-         (value@ #value center)
-         (value@ #left center)
+    (red (the #key center)
+         (the #value center)
+         (the #left center)
          {.#Some addition})
     
     {#Black}
     (with_expansions
-      [<default_behavior> (as_is (black (value@ #key center)
-                                        (value@ #value center)
-                                        (value@ #left center)
+      [<default_behavior> (as_is (black (the #key center)
+                                        (the #value center)
+                                        (the #left center)
                                         {.#Some addition}))]
-      (case (value@ #color addition)
+      (case (the #color addition)
         {#Red}
-        (case (value@ #right addition)
+        (case (the #right addition)
           (^multi {.#Some right}
-                  [(value@ #color right) {#Red}])
-          (red (value@ #key addition)
-               (value@ #value addition)
-               {.#Some (black (value@ #key center)
-                              (value@ #value center)
-                              (value@ #left center)
-                              (value@ #left addition))}
+                  [(the #color right) {#Red}])
+          (red (the #key addition)
+               (the #value addition)
+               {.#Some (black (the #key center)
+                              (the #value center)
+                              (the #left center)
+                              (the #left addition))}
                {.#Some (blackened right)})
 
           _
-          (case (value@ #left addition)
+          (case (the #left addition)
             (^multi {.#Some left}
-                    [(value@ #color left) {#Red}])
-            (red (value@ #key left)
-                 (value@ #value left)
-                 {.#Some (black (value@ #key center)
-                                (value@ #value center)
-                                (value@ #left center)
-                                (value@ #left left))}
-                 {.#Some (black (value@ #key addition)
-                                (value@ #value addition)
-                                (value@ #right left)
-                                (value@ #right addition))})
+                    [(the #color left) {#Red}])
+            (red (the #key left)
+                 (the #value left)
+                 {.#Some (black (the #key center)
+                                (the #value center)
+                                (the #left center)
+                                (the #left left))}
+                 {.#Some (black (the #key addition)
+                                (the #value addition)
+                                (the #right left)
+                                (the #right addition))})
 
             _
             <default_behavior>))
@@ -249,17 +249,17 @@
 
 (def: .public (has key value dict)
   (All (_ k v) (-> k v (Dictionary k v) (Dictionary k v)))
-  (let [(^open "_#[0]") (value@ #&order dict)
-        root' (loop [?root (value@ #root dict)]
+  (let [(^open "_#[0]") (the #&order dict)
+        root' (loop [?root (the #root dict)]
                 (case ?root
                   {.#None}
                   {.#Some (red key value {.#None} {.#None})}
 
                   {.#Some root}
-                  (let [reference (value@ #key root)]
+                  (let [reference (the #key root)]
                     (`` (cond (~~ (template [<comp> <tag> <add>]
                                     [(<comp> reference key)
-                                     (let [side_root (value@ <tag> root)
+                                     (let [side_root (the <tag> root)
                                            outcome (again side_root)]
                                        (if (same? side_root outcome)
                                          ?root
@@ -267,39 +267,39 @@
                                                         root)}))]
 
                                     [_#<                             #left  ..with_left]
-                                    [(order.> (value@ #&order dict)) #right ..with_right]
+                                    [(order.> (the #&order dict)) #right ..with_right]
                                     ))
 
                               ... (_#= reference key)
-                              {.#Some (with@ #value value root)}
+                              {.#Some (.has #value value root)}
                               )))
                   ))]
-    (with@ #root root' dict)))
+    (.has #root root' dict)))
 
 (def: (left_balanced key value ?left ?right)
   (All (_ k v) (-> k v (Maybe (Node k v)) (Maybe (Node k v)) (Node k v)))
   (case ?left
     (^multi {.#Some left}
-            [(value@ #color left) {#Red}]
-            [(value@ #left left) {.#Some left>>left}]
-            [(value@ #color left>>left) {#Red}])
-    (red (value@ #key left)
-         (value@ #value left)
+            [(the #color left) {#Red}]
+            [(the #left left) {.#Some left>>left}]
+            [(the #color left>>left) {#Red}])
+    (red (the #key left)
+         (the #value left)
          {.#Some (blackened left>>left)}
-         {.#Some (black key value (value@ #right left) ?right)})
+         {.#Some (black key value (the #right left) ?right)})
 
     (^multi {.#Some left}
-            [(value@ #color left) {#Red}]
-            [(value@ #right left) {.#Some left>>right}]
-            [(value@ #color left>>right) {#Red}])
-    (red (value@ #key left>>right)
-         (value@ #value left>>right)
-         {.#Some (black (value@ #key left)
-                        (value@ #value left)
-                        (value@ #left left)
-                        (value@ #left left>>right))}
+            [(the #color left) {#Red}]
+            [(the #right left) {.#Some left>>right}]
+            [(the #color left>>right) {#Red}])
+    (red (the #key left>>right)
+         (the #value left>>right)
+         {.#Some (black (the #key left)
+                        (the #value left)
+                        (the #left left)
+                        (the #left left>>right))}
          {.#Some (black key value
-                        (value@ #right left>>right)
+                        (the #right left>>right)
                         ?right)})
 
     _
@@ -309,25 +309,25 @@
   (All (_ k v) (-> k v (Maybe (Node k v)) (Maybe (Node k v)) (Node k v)))
   (case ?right
     (^multi {.#Some right}
-            [(value@ #color right) {#Red}]
-            [(value@ #right right) {.#Some right>>right}]
-            [(value@ #color right>>right) {#Red}])
-    (red (value@ #key right)
-         (value@ #value right)
-         {.#Some (black key value ?left (value@ #left right))}
+            [(the #color right) {#Red}]
+            [(the #right right) {.#Some right>>right}]
+            [(the #color right>>right) {#Red}])
+    (red (the #key right)
+         (the #value right)
+         {.#Some (black key value ?left (the #left right))}
          {.#Some (blackened right>>right)})
 
     (^multi {.#Some right}
-            [(value@ #color right) {#Red}]
-            [(value@ #left right) {.#Some right>>left}]
-            [(value@ #color right>>left) {#Red}])
-    (red (value@ #key right>>left)
-         (value@ #value right>>left)
-         {.#Some (black key value ?left (value@ #left right>>left))}
-         {.#Some (black (value@ #key right)
-                        (value@ #value right)
-                        (value@ #right right>>left)
-                        (value@ #right right))})
+            [(the #color right) {#Red}]
+            [(the #left right) {.#Some right>>left}]
+            [(the #color right>>left) {#Red}])
+    (red (the #key right>>left)
+         (the #value right>>left)
+         {.#Some (black key value ?left (the #left right>>left))}
+         {.#Some (black (the #key right)
+                        (the #value right)
+                        (the #right right>>left)
+                        (the #right right))})
 
     _
     (black key value ?left ?right)))
@@ -336,26 +336,26 @@
   (All (_ k v) (-> k v (Maybe (Node k v)) (Maybe (Node k v)) (Node k v)))
   (case ?left
     (^multi {.#Some left}
-            [(value@ #color left) {#Red}])
+            [(the #color left) {#Red}])
     (red key value {.#Some (blackened left)} ?right)
 
     _
     (case ?right
       (^multi {.#Some right}
-              [(value@ #color right) {#Black}])
+              [(the #color right) {#Black}])
       (right_balanced key value ?left {.#Some (reddened right)})
 
       (^multi {.#Some right}
-              [(value@ #color right) {#Red}]
-              [(value@ #left right) {.#Some right>>left}]
-              [(value@ #color right>>left) {#Black}])
-      (red (value@ #key right>>left)
-           (value@ #value right>>left)
-           {.#Some (black key value ?left (value@ #left right>>left))}
-           {.#Some (right_balanced (value@ #key right)
-                                   (value@ #value right)
-                                   (value@ #right right>>left)
-                                   (# maybe.functor each reddened (value@ #right right)))})
+              [(the #color right) {#Red}]
+              [(the #left right) {.#Some right>>left}]
+              [(the #color right>>left) {#Black}])
+      (red (the #key right>>left)
+           (the #value right>>left)
+           {.#Some (black key value ?left (the #left right>>left))}
+           {.#Some (right_balanced (the #key right)
+                                   (the #value right)
+                                   (the #right right>>left)
+                                   (# maybe.functor each reddened (the #right right)))})
 
       _
       (panic! error_message))
@@ -365,26 +365,26 @@
   (All (_ k v) (-> k v (Maybe (Node k v)) (Maybe (Node k v)) (Node k v)))
   (case ?right
     (^multi {.#Some right}
-            [(value@ #color right) {#Red}])
+            [(the #color right) {#Red}])
     (red key value ?left {.#Some (blackened right)})
 
     _
     (case ?left
       (^multi {.#Some left}
-              [(value@ #color left) {#Black}])
+              [(the #color left) {#Black}])
       (left_balanced key value {.#Some (reddened left)} ?right)
 
       (^multi {.#Some left}
-              [(value@ #color left) {#Red}]
-              [(value@ #right left) {.#Some left>>right}]
-              [(value@ #color left>>right) {#Black}])
-      (red (value@ #key left>>right)
-           (value@ #value left>>right)
-           {.#Some (left_balanced (value@ #key left)
-                                  (value@ #value left)
-                                  (# maybe.functor each reddened (value@ #left left))
-                                  (value@ #left left>>right))}
-           {.#Some (black key value (value@ #right left>>right) ?right)})
+              [(the #color left) {#Red}]
+              [(the #right left) {.#Some left>>right}]
+              [(the #color left>>right) {#Black}])
+      (red (the #key left>>right)
+           (the #value left>>right)
+           {.#Some (left_balanced (the #key left)
+                                  (the #value left)
+                                  (# maybe.functor each reddened (the #left left))
+                                  (the #left left>>right))}
+           {.#Some (black key value (the #right left>>right) ?right)})
 
       _
       (panic! error_message)
@@ -400,70 +400,70 @@
     ?left
 
     [{.#Some left} {.#Some right}]
-    (case [(value@ #color left) (value@ #color right)]
+    (case [(the #color left) (the #color right)]
       [{#Red} {#Red}]
       (do maybe.monad
-        [fused (prepended (value@ #right left) (value@ #right right))]
-        (case (value@ #color fused)
+        [fused (prepended (the #right left) (the #right right))]
+        (case (the #color fused)
           {#Red}
-          (in (red (value@ #key fused)
-                   (value@ #value fused)
-                   {.#Some (red (value@ #key left)
-                                (value@ #value left)
-                                (value@ #left left)
-                                (value@ #left fused))}
-                   {.#Some (red (value@ #key right)
-                                (value@ #value right)
-                                (value@ #right fused)
-                                (value@ #right right))}))
+          (in (red (the #key fused)
+                   (the #value fused)
+                   {.#Some (red (the #key left)
+                                (the #value left)
+                                (the #left left)
+                                (the #left fused))}
+                   {.#Some (red (the #key right)
+                                (the #value right)
+                                (the #right fused)
+                                (the #right right))}))
 
           {#Black}
-          (in (red (value@ #key left)
-                   (value@ #value left)
-                   (value@ #left left)
-                   {.#Some (red (value@ #key right)
-                                (value@ #value right)
+          (in (red (the #key left)
+                   (the #value left)
+                   (the #left left)
+                   {.#Some (red (the #key right)
+                                (the #value right)
                                 {.#Some fused}
-                                (value@ #right right))}))))
+                                (the #right right))}))))
 
       [{#Red} {#Black}]
-      {.#Some (red (value@ #key left)
-                   (value@ #value left)
-                   (value@ #left left)
-                   (prepended (value@ #right left)
+      {.#Some (red (the #key left)
+                   (the #value left)
+                   (the #left left)
+                   (prepended (the #right left)
                               ?right))}
       
       [{#Black} {#Red}]
-      {.#Some (red (value@ #key right)
-                   (value@ #value right)
+      {.#Some (red (the #key right)
+                   (the #value right)
                    (prepended ?left
-                              (value@ #left right))
-                   (value@ #right right))}
+                              (the #left right))
+                   (the #right right))}
 
       [{#Black} {#Black}]
       (do maybe.monad
-        [fused (prepended (value@ #right left) (value@ #left right))]
-        (case (value@ #color fused)
+        [fused (prepended (the #right left) (the #left right))]
+        (case (the #color fused)
           {#Red}
-          (in (red (value@ #key fused)
-                   (value@ #value fused)
-                   {.#Some (black (value@ #key left)
-                                  (value@ #value left)
-                                  (value@ #left left)
-                                  (value@ #left fused))}
-                   {.#Some (black (value@ #key right)
-                                  (value@ #value right)
-                                  (value@ #right fused)
-                                  (value@ #right right))}))
+          (in (red (the #key fused)
+                   (the #value fused)
+                   {.#Some (black (the #key left)
+                                  (the #value left)
+                                  (the #left left)
+                                  (the #left fused))}
+                   {.#Some (black (the #key right)
+                                  (the #value right)
+                                  (the #right fused)
+                                  (the #right right))}))
           
           {#Black}
-          (in (without_left (value@ #key left)
-                            (value@ #value left)
-                            (value@ #left left)
-                            {.#Some (black (value@ #key right)
-                                           (value@ #value right)
+          (in (without_left (the #key left)
+                            (the #value left)
+                            (the #left left)
+                            {.#Some (black (the #key right)
+                                           (the #value right)
                                            {.#Some fused}
-                                           (value@ #right right))}))
+                                           (the #right right))}))
           ))
       )
 
@@ -472,42 +472,42 @@
 
 (def: .public (lacks key dict)
   (All (_ k v) (-> k (Dictionary k v) (Dictionary k v)))
-  (let [(^open "_#[0]") (value@ #&order dict)
-        [?root found?] (loop [?root (value@ #root dict)]
+  (let [(^open "_#[0]") (the #&order dict)
+        [?root found?] (loop [?root (the #root dict)]
                          (case ?root
                            {.#Some root}
-                           (let [root_key (value@ #key root)
-                                 root_val (value@ #value root)]
+                           (let [root_key (the #key root)
+                                 root_val (the #value root)]
                              (if (_#= root_key key)
-                               [(prepended (value@ #left root)
-                                           (value@ #right root))
+                               [(prepended (the #left root)
+                                           (the #right root))
                                 #1]
                                (let [go_left? (_#< root_key key)]
                                  (case (again (if go_left?
-                                                (value@ #left root)
-                                                (value@ #right root)))
+                                                (the #left root)
+                                                (the #right root)))
                                    [{.#None} #0]
                                    [{.#None} #0]
 
                                    [side_outcome _]
                                    (if go_left?
-                                     (case (value@ #left root)
+                                     (case (the #left root)
                                        (^multi {.#Some left}
-                                               [(value@ #color left) {#Black}])
-                                       [{.#Some (without_left root_key root_val side_outcome (value@ #right root))}
+                                               [(the #color left) {#Black}])
+                                       [{.#Some (without_left root_key root_val side_outcome (the #right root))}
                                         #0]
 
                                        _
-                                       [{.#Some (red root_key root_val side_outcome (value@ #right root))}
+                                       [{.#Some (red root_key root_val side_outcome (the #right root))}
                                         #0])
-                                     (case (value@ #right root)
+                                     (case (the #right root)
                                        (^multi {.#Some right}
-                                               [(value@ #color right) {#Black}])
-                                       [{.#Some (without_right root_key root_val (value@ #left root) side_outcome)}
+                                               [(the #color right) {#Black}])
+                                       [{.#Some (without_right root_key root_val (the #left root) side_outcome)}
                                         #0]
 
                                        _
-                                       [{.#Some (red root_key root_val (value@ #left root) side_outcome)}
+                                       [{.#Some (red root_key root_val (the #left root) side_outcome)}
                                         #0])
                                      )))
                                ))
@@ -518,11 +518,11 @@
     (case ?root
       {.#None}
       (if found?
-        (with@ #root ?root dict)
+        (.has #root ?root dict)
         dict)
 
       {.#Some root}
-      (with@ #root {.#Some (blackened root)} dict)
+      (.has #root {.#Some (blackened root)} dict)
       )))
 
 (def: .public (revised key transform dict)
@@ -537,34 +537,34 @@
 (def: .public (of_list order list)
   (All (_ k v) (-> (Order k) (List [k v]) (Dictionary k v)))
   (list#mix (function (_ [key value] dict)
-              (has key value dict))
+              (..has key value dict))
             (empty order)
             list))
 
 (template [<name> <type> <output>]
   [(def: .public (<name> dict)
      (All (_ k v) (-> (Dictionary k v) (List <type>)))
-     (loop [node (value@ #root dict)]
+     (loop [node (the #root dict)]
        (case node
          {.#None}
          (list)
 
          {.#Some node'}
          ($_ list#composite
-             (again (value@ #left node'))
+             (again (the #left node'))
              (list <output>)
-             (again (value@ #right node'))))))]
+             (again (the #right node'))))))]
 
-  [entries [k v] [(value@ #key node') (value@ #value node')]]
-  [keys    k     (value@ #key node')]
-  [values  v     (value@ #value node')]
+  [entries [k v] [(the #key node') (the #value node')]]
+  [keys    k     (the #key node')]
+  [values  v     (the #value node')]
   )
 
 (implementation: .public (equivalence (^open ",#[0]"))
   (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v))))
   
   (def: (= reference sample)
-    (let [(^open "/#[0]") (value@ #&order reference)]
+    (let [(^open "/#[0]") (the #&order reference)]
       (loop [entriesR (entries reference)
              entriesS (entries sample)]
         (case [entriesR entriesS]
diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux
index 6ba497f34..5417fca5d 100644
--- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux
+++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux "*"
+  [lux {"-" has revised}
    [abstract
     [equivalence {"+" Equivalence}]
     [monoid {"+" Monoid}]]
diff --git a/stdlib/source/library/lux/data/collection/list.lux b/stdlib/source/library/lux/data/collection/list.lux
index e5130f985..41e616a8e 100644
--- a/stdlib/source/library/lux/data/collection/list.lux
+++ b/stdlib/source/library/lux/data/collection/list.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux "*"
+  [lux {"-" revised}
    ["@" target]
    [abstract
     [monoid {"+" Monoid}]
@@ -575,7 +575,7 @@
   (All (_ M) (-> (Monad M) (Monad (All (_ a) (M (List a))))))
 
   (def: &functor
-    (functor.composite (value@ monad.&functor monad)
+    (functor.composite (the monad.&functor monad)
                        ..functor))
 
   (def: in
diff --git a/stdlib/source/library/lux/data/collection/queue.lux b/stdlib/source/library/lux/data/collection/queue.lux
index e8ed4c145..81eb6092c 100644
--- a/stdlib/source/library/lux/data/collection/queue.lux
+++ b/stdlib/source/library/lux/data/collection/queue.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux {"-" list}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [functor {"+" Functor}]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" monoid functor)]]]
-    [math
-     [number
-      ["n" nat]]]]])
+ [library
+  [lux {"-" list}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [functor {"+" Functor}]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" monoid functor)]]]
+   [math
+    [number
+     ["n" nat]]]]])
 
 (type: .public (Queue a)
   (Record
@@ -33,7 +33,7 @@
 
 (def: .public front
   (All (_ a) (-> (Queue a) (Maybe a)))
-  (|>> (value@ #front) list.head))
+  (|>> (the #front) list.head))
 
 (def: .public (size queue)
   (All (_ a) (-> (Queue a) Nat))
@@ -43,7 +43,7 @@
 
 (def: .public empty?
   (All (_ a) (-> (Queue a) Bit))
-  (|>> (value@ #front) list.empty?))
+  (|>> (the #front) list.empty?))
 
 (def: .public (member? equivalence queue member)
   (All (_ a) (-> (Equivalence a) (Queue a) a Bit))
@@ -53,7 +53,7 @@
 
 (def: .public (next queue)
   (All (_ a) (-> (Queue a) (Queue a)))
-  (case (value@ #front queue)
+  (case (the #front queue)
     ... Empty...
     (^ (.list))
     queue
@@ -61,22 +61,22 @@
     ... Front has dried up...
     (^ (.list _))
     (|> queue
-        (with@ #front (list.reversed (value@ #rear queue)))
-        (with@ #rear (.list)))
+        (has #front (list.reversed (the #rear queue)))
+        (has #rear (.list)))
 
     ... Consume front!
     (^ (.list& _ front'))
     (|> queue
-        (with@ #front front'))))
+        (has #front front'))))
 
 (def: .public (end val queue)
   (All (_ a) (-> a (Queue a) (Queue a)))
-  (case (value@ #front queue)
+  (case (the #front queue)
     {.#End}
-    (with@ #front (.list val) queue)
+    (has #front (.list val) queue)
 
     _
-    (revised@ #rear (|>> {.#Item val}) queue)))
+    (revised #rear (|>> {.#Item val}) queue)))
 
 (implementation: .public (equivalence super)
   (All (_ a) (-> (Equivalence a) (Equivalence (Queue a))))
@@ -90,5 +90,5 @@
   (Functor Queue)
   
   (def: (each f fa)
-    [#front (|> fa (value@ #front) (list#each f))
-     #rear (|> fa (value@ #rear) (list#each f))]))
+    [#front (|> fa (the #front) (list#each f))
+     #rear (|> fa (the #rear) (list#each f))]))
diff --git a/stdlib/source/library/lux/data/collection/sequence.lux b/stdlib/source/library/lux/data/collection/sequence.lux
index 01a33b7c7..4c935a3d4 100644
--- a/stdlib/source/library/lux/data/collection/sequence.lux
+++ b/stdlib/source/library/lux/data/collection/sequence.lux
@@ -3,7 +3,7 @@
 ... https://hypirion.com/musings/understanding-persistent-vector-pt-3
 (.using
  [library
-  [lux {"-" list}
+  [lux {"-" list has revised}
    ["@" target]
    [abstract
     [functor {"+" Functor}]
@@ -205,58 +205,58 @@
 
 (def: .public (size sequence)
   (All (_ a) (-> (Sequence a) Nat))
-  (value@ #size sequence))
+  (the #size sequence))
 
 (def: .public (suffix val sequence)
   (All (_ a) (-> a (Sequence a) (Sequence a)))
   ... Check if there is room in the tail.
-  (let [sequence_size (value@ #size sequence)]
+  (let [sequence_size (the #size sequence)]
     (if (|> sequence_size (n.- (tail_off sequence_size)) (n.< full_node_size))
       ... If so, append to it.
       (|> sequence
-          (revised@ #size ++)
-          (revised@ #tail (..expanded_tail val)))
+          (.revised #size ++)
+          (.revised #tail (..expanded_tail val)))
       ... Otherwise, push tail into the tree
       ... --------------------------------------------------------
       ... Will the root experience an overflow with this addition?
-      (|> (if (n.> (i64.left_shifted (value@ #level sequence) 1)
+      (|> (if (n.> (i64.left_shifted (the #level sequence) 1)
                    (i64.right_shifted branching_exponent sequence_size))
             ... If so, a brand-new root must be established, that is
             ... 1-level taller.
             (|> sequence
-                (with@ #root (|> (`` (: (Hierarchy (~~ (:of val)))
-                                        (empty_hierarchy [])))
-                                 (array.has! 0 {#Hierarchy (value@ #root sequence)})
-                                 (array.has! 1 (..path (value@ #level sequence) (value@ #tail sequence)))))
-                (revised@ #level level_up))
+                (.has #root (|> (`` (: (Hierarchy (~~ (:of val)))
+                                       (empty_hierarchy [])))
+                                (array.has! 0 {#Hierarchy (the #root sequence)})
+                                (array.has! 1 (..path (the #level sequence) (the #tail sequence)))))
+                (.revised #level level_up))
             ... Otherwise, just push the current tail onto the root.
             (|> sequence
-                (revised@ #root (..with_tail sequence_size (value@ #level sequence) (value@ #tail sequence)))))
+                (.revised #root (..with_tail sequence_size (the #level sequence) (the #tail sequence)))))
           ... Finally, update the size of the sequence and grow a new
           ... tail with the new element as it's sole member.
-          (revised@ #size ++)
-          (with@ #tail (..tail val)))
+          (.revised #size ++)
+          (.has #tail (..tail val)))
       )))
 
 (exception: incorrect_sequence_structure)
 
 (exception: .public [a] (index_out_of_bounds [sequence (Sequence a)
                                               index Nat])
-  (exception.report ["Size" (# n.decimal encoded (value@ #size sequence))]
+  (exception.report ["Size" (# n.decimal encoded (the #size sequence))]
                     ["Index" (# n.decimal encoded index)]))
 
 (exception: base_was_not_found)
 
 (def: .public (within_bounds? sequence idx)
   (All (_ a) (-> (Sequence a) Nat Bit))
-  (n.< (value@ #size sequence) idx))
+  (n.< (the #size sequence) idx))
 
 (def: (base_for idx sequence)
   (All (_ a) (-> Index (Sequence a) (Try (Base a))))
   (if (within_bounds? sequence idx)
-    (if (n.< (tail_off (value@ #size sequence)) idx)
-      (loop [level (value@ #level sequence)
-             hierarchy (value@ #root sequence)]
+    (if (n.< (tail_off (the #size sequence)) idx)
+      (loop [level (the #level sequence)
+             hierarchy (the #root sequence)]
         (let [index (branch_idx (i64.right_shifted level idx))]
           (if (array.lacks? index hierarchy)
             (exception.except ..base_was_not_found [])
@@ -270,7 +270,7 @@
 
               _
               (exception.except ..incorrect_sequence_structure [])))))
-      {try.#Success (value@ #tail sequence)})
+      {try.#Success (the #tail sequence)})
     (exception.except ..index_out_of_bounds [sequence idx])))
 
 (def: .public (item idx sequence)
@@ -284,12 +284,12 @@
 
 (def: .public (has idx val sequence)
   (All (_ a) (-> Nat a (Sequence a) (Try (Sequence a))))
-  (let [sequence_size (value@ #size sequence)]
+  (let [sequence_size (the #size sequence)]
     (if (within_bounds? sequence idx)
       {try.#Success (if (n.< (tail_off sequence_size) idx)
-                      (revised@ #root (hierarchy#has (value@ #level sequence) idx val)
+                      (.revised #root (hierarchy#has (the #level sequence) idx val)
                                 sequence)
-                      (revised@ #tail (`` (: (-> (Base (~~ (:of val)))
+                      (.revised #tail (`` (: (-> (Base (~~ (:of val)))
                                                  (Base (~~ (:of val))))
                                              (|>> array.clone (array.has! (branch_idx idx) val))))
                                 sequence))}
@@ -303,7 +303,7 @@
 
 (def: .public (prefix sequence)
   (All (_ a) (-> (Sequence a) (Sequence a)))
-  (case (value@ #size sequence)
+  (case (the #size sequence)
     0
     empty
 
@@ -312,19 +312,19 @@
 
     sequence_size
     (if (|> sequence_size (n.- (tail_off sequence_size)) (n.> 1))
-      (let [old_tail (value@ #tail sequence)
+      (let [old_tail (the #tail sequence)
             new_tail_size (-- (array.size old_tail))]
         (|> sequence
-            (revised@ #size --)
-            (with@ #tail (|> (array.empty new_tail_size)
-                             (array.copy! new_tail_size 0 old_tail 0)))))
+            (.revised #size --)
+            (.has #tail (|> (array.empty new_tail_size)
+                            (array.copy! new_tail_size 0 old_tail 0)))))
       (maybe.trusted
        (do maybe.monad
          [new_tail (base_for (n.- 2 sequence_size) sequence)
-          .let [[level' root'] (let [init_level (value@ #level sequence)]
+          .let [[level' root'] (let [init_level (the #level sequence)]
                                  (loop [level init_level
                                         root (maybe.else (empty_hierarchy [])
-                                                         (without_tail sequence_size init_level (value@ #root sequence)))]
+                                                         (without_tail sequence_size init_level (the #root sequence)))]
                                    (with_expansions [<else> [level root]]
                                      (if (n.> branching_exponent level)
                                        (if (array.lacks? 1 root)
@@ -340,16 +340,16 @@
                                          <else>)
                                        <else>))))]]
          (in (|> sequence
-                 (revised@ #size --)
-                 (with@ #level level')
-                 (with@ #root root')
-                 (with@ #tail new_tail))))))
+                 (.revised #size --)
+                 (.has #level level')
+                 (.has #root root')
+                 (.has #tail new_tail))))))
     ))
 
 (def: .public (list sequence)
   (All (_ a) (-> (Sequence a) (List a)))
-  (list#composite (node#list {#Hierarchy (value@ #root sequence)})
-                  (node#list {#Base (value@ #tail sequence)})))
+  (list#composite (node#list {#Hierarchy (the #root sequence)})
+                  (node#list {#Base (the #tail sequence)})))
 
 (def: .public of_list
   (All (_ a) (-> (List a) (Sequence a)))
@@ -361,7 +361,7 @@
 
 (def: .public empty?
   (All (_ a) (-> (Sequence a) Bit))
-  (|>> (value@ #size) (n.= 0)))
+  (|>> (the #size) (n.= 0)))
 
 (syntax: .public (sequence [elems (<>.some <code>.any)])
   (in (.list (` (..of_list (.list (~+ elems)))))))
@@ -384,12 +384,12 @@
   (All (_ a) (-> (Equivalence a) (Equivalence (Sequence a))))
   
   (def: (= v1 v2)
-    (and (n.= (value@ #size v1) (value@ #size v2))
+    (and (n.= (the #size v1) (the #size v2))
          (let [(^open "node#[0]") (node_equivalence //#=)]
-           (and (node#= {#Base (value@ #tail v1)}
-                        {#Base (value@ #tail v2)})
-                (node#= {#Hierarchy (value@ #root v1)}
-                        {#Hierarchy (value@ #root v2)}))))))
+           (and (node#= {#Base (the #tail v1)}
+                        {#Base (the #tail v2)})
+                (node#= {#Hierarchy (the #root v1)}
+                        {#Hierarchy (the #root v2)}))))))
 
 (implementation: node_mix
   (Mix Node)
@@ -414,8 +414,8 @@
       (mix $
            (mix $
                 init
-                {#Hierarchy (value@ #root xs)})
-           {#Base (value@ #tail xs)}))))
+                {#Hierarchy (the #root xs)})
+           {#Base (the #tail xs)}))))
 
 (implementation: .public monoid
   (All (_ a) (Monoid (Sequence a)))
@@ -440,12 +440,12 @@
   (Functor Sequence)
   
   (def: (each $ xs)
-    [#level (value@ #level xs)
-     #size (value@ #size xs)
+    [#level (the #level xs)
+     #size (the #size xs)
      #root (let [... TODO: This binding was established to get around a compilation error. Fix and inline!
                  $ (# node_functor each $)]
-             (|> xs (value@ #root) (array.each $)))
-     #tail (|> xs (value@ #tail) (array.each $))]))
+             (|> xs (the #root) (array.each $)))
+     #tail (|> xs (the #tail) (array.each $))]))
 
 (implementation: .public apply
   (Apply Sequence)
@@ -526,11 +526,11 @@
   (case (let [... TODO: This binding was established to get around a compilation error. Fix and inline!
               check (..one|node check)]
           (|> items
-              (value@ #root)
+              (the #root)
               (array.one check)))
     {.#None}
     (|> items
-        (value@ #tail)
+        (the #tail)
         (array.one check))
     
     output
diff --git a/stdlib/source/library/lux/data/collection/set.lux b/stdlib/source/library/lux/data/collection/set.lux
index ac443315f..ee9d8f345 100644
--- a/stdlib/source/library/lux/data/collection/set.lux
+++ b/stdlib/source/library/lux/data/collection/set.lux
@@ -1,19 +1,19 @@
 (.using
-  [library
-   [lux {"-" list}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]
-     [predicate {"+" Predicate}]
-     [monoid {"+" Monoid}]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" mix)]]]
-    [math
-     [number
-      ["n" nat]]]]]
-  ["[0]" // "_"
-   ["[1]" dictionary {"+" Dictionary}]])
+ [library
+  [lux {"-" has list}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]
+    [predicate {"+" Predicate}]
+    [monoid {"+" Monoid}]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" mix)]]]
+   [math
+    [number
+     ["n" nat]]]]]
+ ["[0]" // "_"
+  ["[1]" dictionary {"+" Dictionary}]])
 
 (type: .public (Set a)
   (Dictionary a Any))
@@ -62,7 +62,7 @@
 (implementation: .public equivalence
   (All (_ a) (Equivalence (Set a)))
   
-  (def: (= (^@ reference [hash _]) sample)
+  (def: (= (^let reference [hash _]) sample)
     (and (n.= (..size reference)
               (..size sample))
          (list.every? (..member? reference)
diff --git a/stdlib/source/library/lux/data/collection/set/multi.lux b/stdlib/source/library/lux/data/collection/set/multi.lux
index 505fac514..57c40d2fa 100644
--- a/stdlib/source/library/lux/data/collection/set/multi.lux
+++ b/stdlib/source/library/lux/data/collection/set/multi.lux
@@ -1,22 +1,22 @@
 ... https://en.wikipedia.org/wiki/Multiset
 (.using
-  [library
-   [lux {"-" list}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]]
-    [control
-     ["[0]" function]
-     ["[0]" maybe]]
-    [math
-     [number
-      ["n" nat]]]
-    [type
-     [abstract {"+" abstract: :abstraction :representation ^:representation}]]]]
-  ["[0]" //
-   [//
-    ["[0]" list ("[1]#[0]" mix monoid)]
-    ["[0]" dictionary {"+" Dictionary}]]])
+ [library
+  [lux {"-" has list}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]]
+   [control
+    ["[0]" function]
+    ["[0]" maybe]]
+   [math
+    [number
+     ["n" nat]]]
+   [type
+    [abstract {"+" abstract: :abstraction :representation ^:representation}]]]]
+ ["[0]" //
+  [//
+   ["[0]" list ("[1]#[0]" mix monoid)]
+   ["[0]" dictionary {"+" Dictionary}]]])
 
 (abstract: .public (Set a)
   (Dictionary a Nat)
@@ -104,7 +104,7 @@
 
   (def: .public (support set)
     (All (_ a) (-> (Set a) (//.Set a)))
-    (let [(^@ set [hash _]) (:representation set)]
+    (let [(^let set [hash _]) (:representation set)]
       (|> set
           dictionary.keys
           (//.of_list hash))))
diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux
index e97e0d6dd..5827e0993 100644
--- a/stdlib/source/library/lux/data/collection/set/ordered.lux
+++ b/stdlib/source/library/lux/data/collection/set/ordered.lux
@@ -1,16 +1,16 @@
 (.using
-  [library
-   [lux {"-" list}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [order {"+" Order}]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" mix)]
-      [dictionary
-       ["/" ordered]]]]
-    [type
-     abstract]]])
+ [library
+  [lux {"-" has list}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [order {"+" Order}]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" mix)]
+     [dictionary
+      ["/" ordered]]]]
+   [type
+    abstract]]])
 
 (abstract: .public (Set a)
   (/.Dictionary a a)
@@ -58,13 +58,13 @@
     (All (_ a) (-> (Set a) (Set a) (Set a)))
     (|> (..list right)
         (list.only (..member? left))
-        (..of_list (value@ /.#&order (:representation right)))))
+        (..of_list (the /.#&order (:representation right)))))
 
   (def: .public (difference param subject)
     (All (_ a) (-> (Set a) (Set a) (Set a)))
     (|> (..list subject)
         (list.only (|>> (..member? param) not))
-        (..of_list (value@ /.#&order (:representation subject)))))
+        (..of_list (the /.#&order (:representation subject)))))
 
   (implementation: .public equivalence
     (All (_ a) (Equivalence (Set a)))
diff --git a/stdlib/source/library/lux/data/collection/tree.lux b/stdlib/source/library/lux/data/collection/tree.lux
index d231e5d18..b0940209e 100644
--- a/stdlib/source/library/lux/data/collection/tree.lux
+++ b/stdlib/source/library/lux/data/collection/tree.lux
@@ -1,20 +1,20 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [functor {"+" Functor}]
-     [equivalence {"+" Equivalence}]
-     [mix {"+" Mix}]
-     [monad {"+" do}]]
-    [control
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" monad mix)]]]
-    [macro
-     [syntax {"+" syntax:}]
-     ["[0]" code]]]])
+ [library
+  [lux "*"
+   [abstract
+    [functor {"+" Functor}]
+    [equivalence {"+" Equivalence}]
+    [mix {"+" Mix}]
+    [monad {"+" do}]]
+   [control
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" monad mix)]]]
+   [macro
+    [syntax {"+" syntax:}]
+    ["[0]" code]]]])
 
 (type: .public (Tree a)
   (Record
@@ -24,10 +24,10 @@
 (def: .public (flat tree)
   (All (_ a) (-> (Tree a) (List a)))
   (|> tree
-      (value@ #children)
+      (the #children)
       (list#each flat)
       list#conjoint
-      {.#Item (value@ #value tree)}))
+      {.#Item (the #value tree)}))
 
 (def: .public (leaf value)
   (All (_ a) (-> a (Tree a)))
@@ -63,22 +63,22 @@
   (All (_ a) (-> (Equivalence a) (Equivalence (Tree a))))
   
   (def: (= tx ty)
-    (and (# super = (value@ #value tx) (value@ #value ty))
-         (# (list.equivalence (equivalence super)) = (value@ #children tx) (value@ #children ty)))))
+    (and (# super = (the #value tx) (the #value ty))
+         (# (list.equivalence (equivalence super)) = (the #children tx) (the #children ty)))))
 
 (implementation: .public functor
   (Functor Tree)
   
   (def: (each f fa)
-    [#value (f (value@ #value fa))
+    [#value (f (the #value fa))
      #children (list#each (each f)
-                          (value@ #children fa))]))
+                          (the #children fa))]))
 
 (implementation: .public mix
   (Mix Tree)
   
   (def: (mix f init tree)
     (list#mix (function (_ tree' init') (mix f init' tree'))
-              (f (value@ #value tree)
+              (f (the #value tree)
                  init)
-              (value@ #children tree))))
+              (the #children tree))))
diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux
index 7c8a244b1..a7bf860b4 100644
--- a/stdlib/source/library/lux/data/collection/tree/finger.lux
+++ b/stdlib/source/library/lux/data/collection/tree/finger.lux
@@ -1,14 +1,14 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [predicate {"+" Predicate}]
-     ["[0]" monoid {"+" Monoid}]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" monoid)]]]
-    [type
-     [abstract {"+" abstract: :abstraction :representation}]]]])
+ [library
+  [lux "*"
+   [abstract
+    [predicate {"+" Predicate}]
+    ["[0]" monoid {"+" Monoid}]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" monoid)]]]
+   [type
+    [abstract {"+" abstract: :abstraction :representation}]]]])
 
 ... https://en.wikipedia.org/wiki/Finger_tree
 (abstract: .public (Tree @ t v)
@@ -32,7 +32,7 @@
   (template [<name> <tag> <output>]
     [(def: .public <name>
        (All (_ @ t v) (-> (Tree @ t v) <output>))
-       (|>> :representation (value@ <tag>)))]
+       (|>> :representation (the <tag>)))]
 
     [tag #tag t]
     [root #root (Either v [(Tree @ t v) (Tree @ t v)])]
@@ -55,7 +55,7 @@
 
   (def: .public (value tree)
     (All (_ @ t v) (-> (Tree @ t v) v))
-    (case (value@ #root (:representation tree))
+    (case (the #root (:representation tree))
       {0 #0 value}
       value
 
@@ -64,9 +64,9 @@
 
   (def: .public (tags tree)
     (All (_ @ t v) (-> (Tree @ t v) (List t)))
-    (case (value@ #root (:representation tree))
+    (case (the #root (:representation tree))
       {0 #0 value}
-      (list (value@ #tag (:representation tree)))
+      (list (the #tag (:representation tree)))
 
       {0 #1 [left right]}
       (list#composite (tags left)
@@ -74,7 +74,7 @@
 
   (def: .public (values tree)
     (All (_ @ t v) (-> (Tree @ t v) (List v)))
-    (case (value@ #root (:representation tree))
+    (case (the #root (:representation tree))
       {0 #0 value}
       (list value)
 
@@ -96,8 +96,8 @@
               {0 #1 [left right]}
               (let [shifted_tag (tag//composite _tag (..tag left))]
                 (if (predicate shifted_tag)
-                  (again _tag (value@ #root (:representation left)))
-                  (again shifted_tag (value@ #root (:representation right))))))))
+                  (again _tag (the #root (:representation left)))
+                  (again shifted_tag (the #root (:representation right))))))))
         {.#None})))
   )
 
diff --git a/stdlib/source/library/lux/data/collection/tree/zipper.lux b/stdlib/source/library/lux/data/collection/tree/zipper.lux
index ea6ca7119..108a486d2 100644
--- a/stdlib/source/library/lux/data/collection/tree/zipper.lux
+++ b/stdlib/source/library/lux/data/collection/tree/zipper.lux
@@ -1,21 +1,21 @@
 (.using
-  [library
-   [lux "*"
-    ["@" target]
-    [abstract
-     [functor {"+" Functor}]
-     [comonad {"+" CoMonad}]
-     [monad {"+" do}]
-     [equivalence {"+" Equivalence}]]
-    [control
-     ["[0]" maybe ("[1]#[0]" monad)]]
-    [data
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor monoid)]]]]]
-  ["[0]" // {"+" Tree} ("[1]#[0]" functor)])
+ [library
+  [lux "*"
+   ["@" target]
+   [abstract
+    [functor {"+" Functor}]
+    [comonad {"+" CoMonad}]
+    [monad {"+" do}]
+    [equivalence {"+" Equivalence}]]
+   [control
+    ["[0]" maybe ("[1]#[0]" monad)]]
+   [data
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor monoid)]]]]]
+ ["[0]" // {"+" Tree} ("[1]#[0]" functor)])
 
 (type: (Family Zipper a)
   (Record
@@ -51,23 +51,23 @@
 
 (def: .public tree
   (All (_ a) (-> (Zipper a) (Tree a)))
-  (value@ #node))
+  (the #node))
 
 (def: .public value
   (All (_ a) (-> (Zipper a) a))
-  (value@ [#node //.#value]))
+  (the [#node //.#value]))
 
 (def: .public (set value zipper)
   (All (_ a) (-> a (Zipper a) (Zipper a)))
-  (with@ [#node //.#value] value zipper))
+  (has [#node //.#value] value zipper))
 
 (def: .public (update transform zipper)
   (All (_ a) (-> (-> a a) (Zipper a) (Zipper a)))
-  (revised@ [#node //.#value] transform zipper))
+  (revised [#node //.#value] transform zipper))
 
 (def: children
   (All (_ a) (-> (Zipper a) (List (Tree a))))
-  (value@ [#node //.#children]))
+  (the [#node //.#children]))
 
 (def: .public leaf?
   (All (_ a) (-> (Zipper a) Bit))
@@ -79,7 +79,7 @@
 
 (def: .public (start? zipper)
   (All (_ a) (-> (Zipper a) Bit))
-  (case (value@ #family zipper)
+  (case (the #family zipper)
     {.#None}
     true
 
@@ -93,7 +93,7 @@
     {.#None}
 
     {.#Item head tail}
-    {.#Some [#family {.#Some [#parent (with@ [#node //.#children] (list) zipper)
+    {.#Some [#family {.#Some [#parent (has [#node //.#children] (list) zipper)
                               #lefts {.#End}
                               #rights tail]}
              #node head]}))
@@ -101,37 +101,37 @@
 (def: .public (up zipper)
   (All (_ a) (-> (Zipper a) (Maybe (Zipper a))))
   (do maybe.monad
-    [family (value@ #family zipper)]
+    [family (the #family zipper)]
     (in (let [(^open "_[0]") family]
           (for [@.old
-                (revised@ #node (: (-> (Tree (:parameter 0))
-                                       (Tree (:parameter 0)))
-                                   (with@ //.#children (list#composite (list.reversed _#lefts)
-                                                                       {.#Item (value@ #node zipper)
-                                                                               _#rights})))
-                          _#parent)]
-               (with@ [#node //.#children]
-                      (list#composite (list.reversed _#lefts)
-                                      {.#Item (value@ #node zipper)
-                                              _#rights})
-                      _#parent))))))
+                (revised #node (: (-> (Tree (:parameter 0))
+                                      (Tree (:parameter 0)))
+                                  (has //.#children (list#composite (list.reversed _#lefts)
+                                                                    {.#Item (the #node zipper)
+                                                                            _#rights})))
+                         _#parent)]
+               (has [#node //.#children]
+                    (list#composite (list.reversed _#lefts)
+                                    {.#Item (the #node zipper)
+                                            _#rights})
+                    _#parent))))))
 
 (template [<one> <all> <side> <op_side>]
   [(def: .public (<one> zipper)
      (All (_ a) (-> (Zipper a) (Maybe (Zipper a))))
-     (case (value@ #family zipper)
+     (case (the #family zipper)
        {.#Some family}
-       (case (value@ <side> family)
+       (case (the <side> family)
          {.#Item next side'}
          {.#Some (for [@.old
                        [#family {.#Some (|> family
-                                            (with@ <side> side')
-                                            (revised@ <op_side> (|>> {.#Item (value@ #node zipper)})))}
+                                            (has <side> side')
+                                            (revised <op_side> (|>> {.#Item (the #node zipper)})))}
                         #node next]]
                       (let [move (: (All (_ a) (-> (List (Tree a)) (Zipper a) (Family Zipper a) (Family Zipper a)))
                                     (function (_ side' zipper)
-                                      (|>> (with@ <side> side')
-                                           (revised@ <op_side> (|>> {.#Item (value@ #node zipper)})))))]
+                                      (|>> (has <side> side')
+                                           (revised <op_side> (|>> {.#Item (the #node zipper)})))))]
                         [#family {.#Some (move side' zipper family)}
                          #node next]))}
 
@@ -143,26 +143,26 @@
 
    (def: .public (<all> zipper)
      (All (_ a) (-> (Zipper a) (Maybe (Zipper a))))
-     (case (value@ #family zipper)
+     (case (the #family zipper)
        {.#None}
        {.#None}
 
        {.#Some family}
-       (case (list.reversed (value@ <side> family))
+       (case (list.reversed (the <side> family))
          {.#End}
          {.#None}
 
          {.#Item last prevs}
          {.#Some (for [@.old [#family {.#Some (|> family
-                                                  (with@ <side> {.#End})
-                                                  (revised@ <op_side> (|>> {.#Item (value@ #node zipper)}
-                                                                           (list#composite prevs))))}
+                                                  (has <side> {.#End})
+                                                  (revised <op_side> (|>> {.#Item (the #node zipper)}
+                                                                          (list#composite prevs))))}
                               #node last]]
                       (let [move (: (All (_ a) (-> (List (Tree a)) (Zipper a) (Family Zipper a) (Family Zipper a)))
                                     (function (_ prevs zipper)
-                                      (|>> (with@ <side> {.#End})
-                                           (revised@ <op_side> (|>> {.#Item (value@ #node zipper)}
-                                                                    (list#composite prevs))))))]
+                                      (|>> (has <side> {.#End})
+                                           (revised <op_side> (|>> {.#Item (the #node zipper)}
+                                                                   (list#composite prevs))))))]
                         [#family {.#Some (move prevs zipper family)}
                          #node last]))})))]
 
@@ -246,44 +246,44 @@
 
 (def: .public (interpose value zipper)
   (All (_ a) (-> a (Zipper a) (Zipper a)))
-  (revised@ [#node //.#children]
-            (|>> (//.branch value) list)
-            zipper))
+  (revised [#node //.#children]
+           (|>> (//.branch value) list)
+           zipper))
 
 (def: .public (adopt value zipper)
   (All (_ a) (-> a (Zipper a) (Zipper a)))
-  (revised@ [#node //.#children]
-            (|>> {.#Item (//.leaf value)})
-            zipper))
+  (revised [#node //.#children]
+           (|>> {.#Item (//.leaf value)})
+           zipper))
 
 (def: .public (remove zipper)
   (All (_ a) (-> (Zipper a) (Maybe (Zipper a))))
   (do maybe.monad
-    [family (value@ #family zipper)]
-    (case (value@ #lefts family)
+    [family (the #family zipper)]
+    (case (the #lefts family)
       {.#End}
-      (in (with@ [#node //.#children]
-                 (value@ #rights family)
-                 (value@ #parent family)))
+      (in (has [#node //.#children]
+               (the #rights family)
+               (the #parent family)))
 
       {.#Item next side}
       (in (|> zipper
-              (with@ #family (|> family
-                                 (with@ #lefts side)
-                                 {.#Some}))
-              (with@ #node next))))))
+              (has #family (|> family
+                               (has #lefts side)
+                               {.#Some}))
+              (has #node next))))))
 
 (template [<name> <side>]
   [(def: .public (<name> value zipper)
      (All (_ a) (-> a (Zipper a) (Maybe (Zipper a))))
-     (case (value@ #family zipper)
+     (case (the #family zipper)
        {.#None}
        {.#None}
 
        {.#Some family}
-       {.#Some (with@ #family
-                      {.#Some (revised@ <side> (|>> {.#Item (//.leaf value)}) family)}
-                      zipper)}))]
+       {.#Some (has #family
+                    {.#Some (revised <side> (|>> {.#Item (//.leaf value)}) family)}
+                    zipper)}))]
 
   [insert_left  #lefts]
   [insert_right #rights]
@@ -307,14 +307,14 @@
     ..functor)
 
   (def: out
-    (value@ [#node //.#value]))
+    (the [#node //.#value]))
 
   (def: (disjoint (^open "_[0]"))
     (let [tree_splitter (: (All (_ a) (-> (Tree a) (Tree (Zipper a))))
                            (function (tree_splitter tree)
                              [//.#value (..zipper tree)
                               //.#children (|> tree
-                                               (value@ //.#children)
+                                               (the //.#children)
                                                (list#each tree_splitter))]))]
       [#family (maybe#each (function (_ (^open "_[0]"))
                              [..#parent (disjoint _#parent)
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux
index f4dd728df..649e50f5d 100644
--- a/stdlib/source/library/lux/data/format/css.lux
+++ b/stdlib/source/library/lux/data/format/css.lux
@@ -54,19 +54,19 @@
 
   (def: .public (font font)
     (-> Font (CSS Special))
-    (let [with_unicode (case (value@ /font.#unicode_range font)
+    (let [with_unicode (case (the /font.#unicode_range font)
                          {.#Some unicode_range}
-                         (let [unicode_range' (format "U+" (# nat.hex encoded (value@ /font.#start unicode_range))
-                                                      "-" (# nat.hex encoded (value@ /font.#end unicode_range)))]
+                         (let [unicode_range' (format "U+" (# nat.hex encoded (the /font.#start unicode_range))
+                                                      "-" (# nat.hex encoded (the /font.#end unicode_range)))]
                            (list ["unicode-range" unicode_range']))
                          
                          {.#None}
                          (list))]
-      (|> (list& ["font-family" (value@ /font.#family font)]
-                 ["src" (format "url(" (value@ /font.#source font) ")")]
-                 ["font-stretch" (|> font (value@ /font.#stretch) (maybe.else /value.normal_stretch) /value.value)]
-                 ["font-style" (|> font (value@ /font.#style) (maybe.else /value.normal_style) /value.value)]
-                 ["font-weight" (|> font (value@ /font.#weight) (maybe.else /value.normal_weight) /value.value)]
+      (|> (list& ["font-family" (the /font.#family font)]
+                 ["src" (format "url(" (the /font.#source font) ")")]
+                 ["font-stretch" (|> font (the /font.#stretch) (maybe.else /value.normal_stretch) /value.value)]
+                 ["font-style" (|> font (the /font.#style) (maybe.else /value.normal_style) /value.value)]
+                 ["font-weight" (|> font (the /font.#weight) (maybe.else /value.normal_weight) /value.value)]
                  with_unicode)
           (list#each (function (_ [property value])
                        (format property ": " value ";")))
@@ -99,8 +99,8 @@
     (:abstraction (format "@keyframes " (/value.value animation) " {"
                           (|> frames
                               (list#each (function (_ frame)
-                                           (format (/value.value (value@ #when frame)) " {"
-                                                   (/style.inline (/style.style (value@ #what frame)))
+                                           (format (/value.value (the #when frame)) " {"
+                                                   (/style.inline (/style.style (the #what frame)))
                                                    "}")))
                               (text.interposed ..separator))
                           "}")))
diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux
index 9b2de87f3..4dd831528 100644
--- a/stdlib/source/library/lux/data/format/css/value.lux
+++ b/stdlib/source/library/lux/data/format/css/value.lux
@@ -1115,7 +1115,7 @@
   (def: .public (clip rectangle)
     (-> Rectangle (Value Clip))
     (`` (..apply "rect" (list (~~ (template [<side>]
-                                    [(:representation (value@ <side> rectangle))]
+                                    [(:representation (the <side> rectangle))]
 
                                     [#top] [#right] [#bottom] [#left]))))))
 
diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux
index 49686f9fa..315665921 100644
--- a/stdlib/source/library/lux/data/format/json.lux
+++ b/stdlib/source/library/lux/data/format/json.lux
@@ -1,6 +1,6 @@
 (.using
   [library
-   [lux "*"
+   [lux {"-" has}
     ["[0]" meta {"+" monad}]
     [abstract
      [equivalence {"+" Equivalence}]
diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux
index c4962a187..8e51999b3 100644
--- a/stdlib/source/library/lux/data/format/tar.lux
+++ b/stdlib/source/library/lux/data/format/tar.lux
@@ -637,11 +637,11 @@
 (def: (header_writer header)
   (Writer Header)
   (let [checksum (|> header
-                     (with@ #checksum ..dummy_checksum)
+                     (has #checksum ..dummy_checksum)
                      (format.result ..header_writer')
                      ..checksum_code)]
     (|> header
-        (with@ #checksum checksum)
+        (has #checksum checksum)
         (format.result ..header_writer')
         (format.segment ..block_size))))
 
@@ -661,16 +661,16 @@
                      (format.segment (..rounded_content_size size)))]
       (writer [[#path path
                 #mode mode
-                #user_id (value@ [#user #id] ownership)
-                #group_id (value@ [#group #id] ownership)
+                #user_id (the [#user #id] ownership)
+                #group_id (the [#group #id] ownership)
                 #size size
                 #modification_time (..modification_time modification_time)
                 #checksum ..dummy_checksum
                 #link_flag link_flag
                 #link_name ..no_path
                 #magic ..ustar
-                #user_name (value@ [#user #name] ownership)
-                #group_name (value@ [#group #name] ownership)
+                #user_name (the [#user #name] ownership)
+                #group_name (the [#group #name] ownership)
                 #major_device ..no_device
                 #minor_device ..no_device]
                content]))))
@@ -806,41 +806,41 @@
 (def: (file_parser header)
   (-> Header (Parser File))
   (do <>.monad
-    [.let [size (value@ #size header)
+    [.let [size (the #size header)
            rounded_size (..rounded_content_size size)]
      content (<binary>.segment (..from_big size))
      content (<>.lifted (..content content))
      _ (<binary>.segment (n.- (..from_big size) rounded_size))]
-    (in [(value@ #path header)
+    (in [(the #path header)
          (|> header
-             (value@ #modification_time)
+             (the #modification_time)
              ..from_big
              .int
              duration.of_millis
              (duration.up (|> duration.second duration.millis .nat))
              instant.absolute)
-         (value@ #mode header)
-         [#user [#name (value@ #user_name header)
-                 #id (value@ #user_id header)]
-          #group [#name (value@ #group_name header)
-                  #id (value@ #group_id header)]]
+         (the #mode header)
+         [#user [#name (the #user_name header)
+                 #id (the #user_id header)]
+          #group [#name (the #group_name header)
+                  #id (the #group_id header)]]
          content])))
 
 (def: entry_parser
   (Parser Entry)
   (do [! <>.monad]
     [header ..header_parser]
-    (cond (same? ..contiguous (value@ #link_flag header))
+    (cond (same? ..contiguous (the #link_flag header))
           (# ! each (|>> {..#Contiguous}) (..file_parser header))
 
-          (same? ..symbolic_link (value@ #link_flag header))
-          (in {..#Symbolic_Link (value@ #link_name header)})
+          (same? ..symbolic_link (the #link_flag header))
+          (in {..#Symbolic_Link (the #link_name header)})
           
-          (same? ..directory (value@ #link_flag header))
-          (in {..#Directory (value@ #path header)})
+          (same? ..directory (the #link_flag header))
+          (in {..#Directory (the #path header)})
 
-          ... (or (same? ..normal (value@ #link_flag header))
-          ...     (same? ..old_normal (value@ #link_flag header)))
+          ... (or (same? ..normal (the #link_flag header))
+          ...     (same? ..old_normal (the #link_flag header)))
           (# ! each (|>> {..#Normal}) (..file_parser header)))))
 
 ... It's safe to implement the parser this way because the range of values for Nat is 2^64
diff --git a/stdlib/source/library/lux/data/store.lux b/stdlib/source/library/lux/data/store.lux
index 11c9580d0..a30bdf0c4 100644
--- a/stdlib/source/library/lux/data/store.lux
+++ b/stdlib/source/library/lux/data/store.lux
@@ -1,11 +1,11 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [functor {"+" Functor}]
-     comonad]
-    [type
-     implicit]]])
+ [library
+  [lux "*"
+   [abstract
+    [functor {"+" Functor}]
+    comonad]
+   [type
+    implicit]]])
 
 (type: .public (Store s a)
   (Record
@@ -14,8 +14,8 @@
 
 (def: (extend f wa)
   (All (_ s a b) (-> (-> (Store s a) b) (Store s a) (Store s b)))
-  [#cursor (value@ #cursor wa)
-   #peek (function (_ s) (f (with@ #cursor s wa)))])
+  [#cursor (the #cursor wa)
+   #peek (function (_ s) (f (has #cursor s wa)))])
 
 (implementation: .public functor
   (All (_ s) (Functor (Store s)))
diff --git a/stdlib/source/library/lux/data/text/unicode/block.lux b/stdlib/source/library/lux/data/text/unicode/block.lux
index f71030258..feab490e3 100644
--- a/stdlib/source/library/lux/data/text/unicode/block.lux
+++ b/stdlib/source/library/lux/data/text/unicode/block.lux
@@ -1,18 +1,18 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]
-     [monoid {"+" Monoid}]
-     ["[0]" interval {"+" Interval}]]
-    [math
-     [number {"+" hex}
-      ["n" nat ("[1]#[0]" interval)]
-      ["[0]" i64]]]
-    [type
-     abstract]]]
-  [/// {"+" Char}])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]
+    [monoid {"+" Monoid}]
+    ["[0]" interval {"+" Interval}]]
+   [math
+    [number {"+" hex}
+     ["n" nat ("[1]#[0]" interval)]
+     ["[0]" i64]]]
+   [type
+    abstract]]]
+ [/// {"+" Char}])
 
 (abstract: .public Block
   (Interval Char)
@@ -41,7 +41,7 @@
   (template [<name> <slot>]
     [(def: .public <name>
        (-> Block Char)
-       (|>> :representation (value@ <slot>)))]
+       (|>> :representation (the <slot>)))]
 
     [start interval.bottom]
     [end   interval.top]
@@ -49,8 +49,8 @@
 
   (def: .public (size block)
     (-> Block Nat)
-    (let [start (value@ interval.bottom (:representation block))
-          end (value@ interval.top (:representation block))]
+    (let [start (the interval.bottom (:representation block))
+          end (the interval.top (:representation block))]
       (|> end (n.- start) ++)))
 
   (def: .public (within? block char)
diff --git a/stdlib/source/library/lux/data/trace.lux b/stdlib/source/library/lux/data/trace.lux
index 52e30470f..23c9fa00b 100644
--- a/stdlib/source/library/lux/data/trace.lux
+++ b/stdlib/source/library/lux/data/trace.lux
@@ -1,11 +1,11 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     ["[0]" monoid {"+" Monoid}]
-     [functor {"+" Functor}]
-     comonad]
-    function]])
+ [library
+  [lux "*"
+   [abstract
+    ["[0]" monoid {"+" Monoid}]
+    [functor {"+" Functor}]
+    comonad]
+   function]])
 
 (type: .public (Trace t a)
   (Record
@@ -16,7 +16,7 @@
   (All (_ t) (Functor (Trace t)))
 
   (def: (each f fa)
-    (revised@ #trace (composite f) fa)))
+    (revised #trace (composite f) fa)))
 
 (implementation: .public comonad
   (All (_ t) (CoMonad (Trace t)))
@@ -24,16 +24,16 @@
   (def: &functor ..functor)
 
   (def: (out wa)
-    ((value@ #trace wa)
-     (value@ [#monoid monoid.#identity] wa)))
+    ((the #trace wa)
+     (the [#monoid monoid.#identity] wa)))
 
   (def: (disjoint wa)
-    (let [monoid (value@ #monoid wa)]
+    (let [monoid (the #monoid wa)]
       [#monoid monoid
        #trace (function (_ t1)
                 [#monoid monoid
                  #trace (function (_ t2)
-                          ((value@ #trace wa)
+                          ((the #trace wa)
                            (# monoid composite t1 t2)))])])))
 
 (def: .public (result context tracer)
diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux
index 2e2b7e65e..676746bd5 100644
--- a/stdlib/source/library/lux/documentation.lux
+++ b/stdlib/source/library/lux/documentation.lux
@@ -1,38 +1,38 @@
 (.using
-  [library
-   [lux {"-" Definition Module type}
-    ["[0]" meta]
-    ["[0]" type ("[1]#[0]" equivalence)]
-    [abstract
-     [monad {"+" do}]
-     ["[0]" enum]]
-    [control
-     ["[0]" maybe ("[1]#[0]" functor)]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text {"+" \n} ("[1]#[0]" order)
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" monad mix monoid)]
-      ["[0]" set {"+" Set}]
-      ["[0]" stream {"+" Stream}]]
-     [format
-      ["md" markdown {"+" Markdown Block}]]]
-    ["[0]" macro
-     [syntax {"+" syntax:}]
-     ["[0]" code]
-     ["[0]" template]]
-    [math
-     [number
-      ["n" nat]]]
-    [tool
-     [compiler
-      [language
-       [lux
-        ["[0]" syntax]]]]]]])
+ [library
+  [lux {"-" Definition Module type}
+   ["[0]" meta]
+   ["[0]" type ("[1]#[0]" equivalence)]
+   [abstract
+    [monad {"+" do}]
+    ["[0]" enum]]
+   [control
+    ["[0]" maybe ("[1]#[0]" functor)]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text {"+" \n} ("[1]#[0]" order)
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" monad mix monoid)]
+     ["[0]" set {"+" Set}]
+     ["[0]" stream {"+" Stream}]]
+    [format
+     ["md" markdown {"+" Markdown Block}]]]
+   ["[0]" macro
+    [syntax {"+" syntax:}]
+    ["[0]" code]
+    ["[0]" template]]
+   [math
+    [number
+     ["n" nat]]]
+   [tool
+    [compiler
+     [language
+      [lux
+       ["[0]" syntax]]]]]]])
 
 (template: (|recursion_dummy|)
   [{.#Primitive "" {.#End}}])
@@ -96,14 +96,14 @@
                               
                               ... else
                               (%.symbol [module short]))]
-      [(revised@ .#column (n.+ (text.size documentation)) new_location)
+      [(revised .#column (n.+ (text.size documentation)) new_location)
        (format (padding reference_column old_location new_location)
                documentation)])
     
     (^template [<tag> <format>]
       [[new_location {<tag> value}]
        (let [documentation (`` (|> value (~~ (template.spliced <format>))))]
-         [(revised@ .#column (n.+ (text.size documentation)) new_location)
+         [(revised .#column (n.+ (text.size documentation)) new_location)
           (format (padding reference_column old_location new_location)
                   documentation)])])
     ([.#Bit [%.bit]]
@@ -118,9 +118,9 @@
        (let [[group_location' members_documentation] (list#mix (function (_ part [last_location text_accum])
                                                                  (let [[member_location member_documentation] (code_documentation expected_module last_location reference_column part)]
                                                                    [member_location (format text_accum member_documentation)]))
-                                                               [(revised@ .#column ++ group_location) ""]
+                                                               [(revised .#column ++ group_location) ""]
                                                                members)]
-         [(revised@ .#column ++ group_location')
+         [(revised .#column ++ group_location')
           (format (padding reference_column old_location group_location)
                   |<| members_documentation |>|)])])
     ([syntax.open_form    syntax.close_form    .#Form]
@@ -146,7 +146,7 @@
     (let [reference_column (..reference_column example)
           [location _] example]
       (|> example
-          (..code_documentation module (with@ .#column reference_column location) reference_column)
+          (..code_documentation module (has .#column reference_column location) reference_column)
           product.right))))
 
 (def: parameter_name_options "abcdefghijklmnopqrstuvwxyz")
@@ -601,9 +601,9 @@
 (def: definitions_documentation
   (-> (List Definition) (Markdown Block))
   (|>> (list.sorted (function (_ left right)
-                      (text#< (value@ #definition right)
-                              (value@ #definition left))))
-       (list#each (value@ #documentation))
+                      (text#< (the #definition right)
+                              (the #definition left))))
+       (list#each (the #documentation))
        (list#mix md.then md.empty)))
 
 (def: expected_separator
@@ -655,9 +655,9 @@
   (let [(^open "_[0]") module]
     ($_ md.then
         ... Name
-        (md.heading/1 (value@ #module module))
+        (md.heading/1 (the #module module))
         ... Description
-        (case (value@ #description module)
+        (case (the #description module)
           "" md.empty
           description (<| md.paragraph
                           md.text
@@ -665,15 +665,15 @@
         ... Definitions
         (md.heading/2 "Definitions")
         (|> module
-            (value@ #definitions)
-            (list.only (|>> (value@ #definition)
+            (the #definitions)
+            (list.only (|>> (the #definition)
                             (set.member? _#expected)))
             ..definitions_documentation)
         ... Missing documentation
         (case (|> module
-                  (value@ #definitions)
+                  (the #definitions)
                   (list#mix (function (_ definition missing)
-                              (set.lacks (value@ #definition definition) missing))
+                              (set.lacks (the #definition definition) missing))
                             _#expected)
                   set.list)
           {.#End}
@@ -685,11 +685,11 @@
               (..listing missing)))
         ... Un-expected documentation
         (case (|> module
-                  (value@ #definitions)
-                  (list.only (|>> (value@ #definition)
+                  (the #definitions)
+                  (list.only (|>> (the #definition)
                                   (set.member? _#expected)
                                   not))
-                  (list#each (value@ #definition)))
+                  (list#each (the #definition)))
           {.#End}
           md.empty
           
@@ -702,7 +702,7 @@
 (def: .public documentation
   (-> (List Module) Text)
   (|>> (list.sorted (function (_ left right)
-                      (text#< (value@ #module right) (value@ #module left))))
+                      (text#< (the #module right) (the #module left))))
        (list#each ..module_documentation)
        (list.interposed md.horizontal_rule)
        (list#mix md.then (: (Markdown Block) md.empty))
diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux
index a1d5abe96..5720c4dff 100644
--- a/stdlib/source/library/lux/ffi.jvm.lux
+++ b/stdlib/source/library/lux/ffi.jvm.lux
@@ -1326,15 +1326,15 @@
   (-> (List (Type Var)) Import_Member_Declaration (List (Type Var)))
   (case member
     {#ConstructorDecl [commons _]}
-    (list#composite class_tvars (value@ #import_member_tvars commons))
+    (list#composite class_tvars (the #import_member_tvars commons))
 
     {#MethodDecl [commons _]}
-    (case (value@ #import_member_kind commons)
+    (case (the #import_member_kind commons)
       {#StaticIMK}
-      (value@ #import_member_tvars commons)
+      (the #import_member_tvars commons)
 
       _
-      (list#composite class_tvars (value@ #import_member_tvars commons)))
+      (list#composite class_tvars (the #import_member_tvars commons)))
 
     _
     class_tvars))
@@ -1354,7 +1354,7 @@
          .let [input_jvm_types (list#each product.right #import_member_args)
                arg_types (list#each (: (-> [Bit (Type Value)] Code)
                                        (function (_ [maybe? arg])
-                                         (let [arg_type (value_type (value@ #import_member_mode commons) arg)]
+                                         (let [arg_type (value_type (the #import_member_mode commons) arg)]
                                            (if maybe?
                                              (` (Maybe (~ arg_type)))
                                              arg_type))))
@@ -1372,7 +1372,7 @@
               (dictionary.key? ..boxes unboxed))
           return_term
 
-          (value@ #import_member_maybe? commons)
+          (the #import_member_maybe? commons)
           (` (??? (~ return_term)))
 
           ... else
@@ -1391,7 +1391,7 @@
      (-> Import_Member_Declaration Code Code)
      (case member
        (^or {#ConstructorDecl [commons _]} {#MethodDecl [commons _]})
-       (if (value@ <tag> commons)
+       (if (the <tag> commons)
          <term_trans>
          return_term)
 
@@ -1515,16 +1515,16 @@
       {#ConstructorDecl [commons _]}
       (do meta.monad
         [.let [classT (jvm.class full_name (list))
-               def_name (code.symbol ["" (..import_name import_format method_prefix (value@ #import_member_alias commons))])
+               def_name (code.symbol ["" (..import_name import_format method_prefix (the #import_member_alias commons))])
                jvm_interop (|> [classT
                                 (` ("jvm member invoke constructor"
                                     [(~+ (list#each ..var$ class_tvars))]
                                     (~ (code.text full_name))
-                                    [(~+ (list#each ..var$ (value@ #import_member_tvars commons)))]
-                                    (~+ (|> (jvm_invoke_inputs (value@ #import_member_mode commons) input_jvm_types arg_function_inputs)
+                                    [(~+ (list#each ..var$ (the #import_member_tvars commons)))]
+                                    (~+ (|> (jvm_invoke_inputs (the #import_member_mode commons) input_jvm_types arg_function_inputs)
                                             (list.zipped/2 input_jvm_types)
                                             (list#each ..decorate_input)))))]
-                               (with_automatic_output_conversion (value@ #import_member_mode commons))
+                               (with_automatic_output_conversion (the #import_member_mode commons))
                                (with_return_maybe member true classT)
                                (with_return_try member)
                                (with_return_io member))]]
@@ -1534,7 +1534,7 @@
       {#MethodDecl [commons method]}
       (with_symbols [g!obj]
         (do meta.monad
-          [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (value@ #import_member_alias commons))])
+          [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (the #import_member_alias commons))])
                  (^open "[0]") commons
                  (^open "[0]") method
                  [jvm_op object_ast] (: [Text (List Code)]
@@ -1553,18 +1553,18 @@
                                             ["jvm member invoke interface"
                                              (list g!obj)]
                                             )))
-                 method_return (value@ #import_method_return method)
+                 method_return (the #import_method_return method)
                  callC (: Code
                           (` ((~ (code.text jvm_op))
                               [(~+ (list#each ..var$ class_tvars))]
                               (~ (code.text full_name))
                               (~ (code.text #import_method_name))
-                              [(~+ (list#each ..var$ (value@ #import_member_tvars commons)))]
+                              [(~+ (list#each ..var$ (the #import_member_tvars commons)))]
                               (~+ (|> object_ast
                                       (list#each ..un_quoted)
                                       (list.zipped/2 (list (jvm.class full_name (list))))
-                                      (list#each (with_automatic_input_conversion (value@ #import_member_mode commons)))))
-                              (~+ (|> (jvm_invoke_inputs (value@ #import_member_mode commons) input_jvm_types arg_function_inputs)
+                                      (list#each (with_automatic_input_conversion (the #import_member_mode commons)))))
+                              (~+ (|> (jvm_invoke_inputs (the #import_member_mode commons) input_jvm_types arg_function_inputs)
                                       (list.zipped/2 input_jvm_types)
                                       (list#each ..decorate_input))))))
                  jvm_interop (: Code
@@ -1572,7 +1572,7 @@
                                   {.#Left method_return}
                                   (|> [method_return
                                        callC]
-                                      (with_automatic_output_conversion (value@ #import_member_mode commons))
+                                      (with_automatic_output_conversion (the #import_member_mode commons))
                                       (with_return_maybe member false method_return)
                                       (with_return_try member)
                                       (with_return_io member))
diff --git a/stdlib/source/library/lux/ffi.lux b/stdlib/source/library/lux/ffi.lux
index 7d1f709a4..7a1debe9c 100644
--- a/stdlib/source/library/lux/ffi.lux
+++ b/stdlib/source/library/lux/ffi.lux
@@ -171,7 +171,7 @@
   (def: constructor
     (Parser Constructor)
     (<| <code>.form
-        (..generalized (with@ [#anonymous #variables]))
+        (..generalized (has [#anonymous #variables]))
         (<>.after (<code>.this! (' new)))
         (..anonymous ..input)))
 
@@ -212,7 +212,7 @@
 
   (def: procedure
     (Parser (Named Procedure))
-    (<| (..generalized (with@ [#anonymous #input #variables]))
+    (<| (..generalized (has [#anonymous #input #variables]))
         ..named
         ($_ <>.and
             ..input
@@ -255,9 +255,9 @@
 
   (def: (output_type it)
     (-> Optional Code)
-    (if (value@ #optional? it)
-      (` (.Maybe (~ (value@ #mandatory it))))
-      (value@ #mandatory it)))
+    (if (the #optional? it)
+      (` (.Maybe (~ (the #mandatory it))))
+      (the #mandatory it)))
 
   (`` (template [<lux_it> <host_it>
                  <lux_?> <host_?>]
@@ -273,19 +273,19 @@
            (as_is (def: g!it' (' g!it))
                   (def: (host_optional it)
                     (-> Optional Code)
-                    (.if (.value@ #optional? it)
-                      (` (.case (~ (value@ #mandatory it))
+                    (.if (.the #optional? it)
+                      (` (.case (~ (the #mandatory it))
                            {.#Some (~ g!it')}
                            (~ g!it')
 
                            {.#None}
                            (<host_it>)))
-                      (value@ #mandatory it)))
+                      (the #mandatory it)))
 
                   (def: (lux_optional it output)
                     (-> Optional Code Code)
                     (` (.let [(~ g!it') (~ output)]
-                         (~ (if (value@ #optional? it)
+                         (~ (if (the #optional? it)
                               (` (.if (<host_?> (~ g!it'))
                                    {.#None}
                                    {.#Some (~ g!it')}))
@@ -342,32 +342,32 @@
 
   (def: (input_type input :it:)
     (-> Input Code Code)
-    (let [:it: (if (value@ #try? input)
+    (let [:it: (if (the #try? input)
                  (` (.Either .Text (~ :it:)))
                  :it:)]
-      (if (value@ #io? input)
+      (if (the #io? input)
         (` ((~! io.IO) (~ :it:)))
         :it:)))
 
   (def: (input_term input term)
     (-> Input Code Code)
-    (let [term (if (value@ #try? input)
+    (let [term (if (the #try? input)
                  (` (.try (~ term)))
                  term)]
-      (if (value@ #io? input)
+      (if (the #io? input)
         (` ((~! io.io) (~ term)))
         term)))
 
   (def: (procedure_definition import! source it)
     (-> (List Code) Code (Named Procedure) Code)
-    (let [g!it (|> (value@ #alias it)
-                   (maybe.else (value@ #name it))
+    (let [g!it (|> (the #alias it)
+                   (maybe.else (the #name it))
                    code.local_symbol)
-          g!variables (list#each code.local_symbol (value@ [#anonymous #input #variables] it))
-          input (value@ [#anonymous #input] it)
-          :parameters: (value@ #parameters input)
+          g!variables (list#each code.local_symbol (the [#anonymous #input #variables] it))
+          input (the [#anonymous #input] it)
+          :parameters: (the #parameters input)
           g!parameters (..parameters :parameters:)
-          :output: (value@ [#anonymous #output] it)
+          :output: (the [#anonymous #output] it)
           :input:/* (case :parameters:
                       {.#End}
                       (list (` []))
@@ -376,7 +376,7 @@
                       (list#each ..output_type :parameters:))]
       (` (.def: ((~ g!it) (~+ (case g!parameters
                                 {.#End} (list g!it)
-                                _ (list#each (value@ #mandatory) g!parameters))))
+                                _ (list#each (the #mandatory) g!parameters))))
            (.All ((~ g!it) (~+ g!variables))
              (-> (~+ :input:/*)
                  (~ (|> :output:
@@ -418,37 +418,37 @@
 
   (def: (global_definition import! it)
     (-> (List Code) Global Code)
-    (let [g!name (|> (value@ #alias it)
-                     (maybe.else (value@ #name it))
+    (let [g!name (|> (the #alias it)
+                     (maybe.else (the #name it))
                      code.local_symbol)
-          :output: (value@ #anonymous it)]
+          :output: (the #anonymous it)]
       (` (.def: (~ g!name)
            (~ (..output_type :output:))
            (.exec
              (~+ import!)
              (.:expected
               (~ (<| (lux_optional :output:)
-                     (` (<constant> (~ (code.text (..host_path (value@ #name it))))))))))))))
+                     (` (<constant> (~ (code.text (..host_path (the #name it))))))))))))))
   
   (for [@.lua (as_is)
         @.ruby (as_is)]
        (def: (constructor_definition [class_name class_parameters] alias namespace it)
          (-> Declaration Alias Namespace Constructor Code)
          (let [g!it (|> it
-                        (value@ #alias)
+                        (the #alias)
                         (maybe.else "new")
                         (..namespaced namespace class_name alias)
                         code.local_symbol)
-               input (value@ #anonymous it)
-               g!input_variables (list#each code.local_symbol (value@ #variables input))
-               :parameters: (value@ #parameters input)
+               input (the #anonymous it)
+               g!input_variables (list#each code.local_symbol (the #variables input))
+               :parameters: (the #parameters input)
                g!parameters (..parameters :parameters:)
                g!class_variables (list#each code.local_symbol class_parameters)
                g!class (` ((~ (code.local_symbol (maybe.else class_name alias))) (~+ g!class_variables)))
                :output: [#optional? false #mandatory g!class]]
            (` (.def: ((~ g!it) (~+ (case g!parameters
                                      {.#End} (list g!it)
-                                     _ (list#each (value@ #mandatory) g!parameters))))
+                                     _ (list#each (the #mandatory) g!parameters))))
                 (.All ((~ g!it) (~+ g!class_variables) (~+ g!input_variables))
                   (.-> (~+ (list#each ..output_type :parameters:))
                        (~ (|> :output:
@@ -464,12 +464,12 @@
 
   (def: (static_field_definition import! [class_name class_parameters] alias namespace it)
     (-> (List Code) Declaration Alias Namespace (Named Output) Code)
-    (let [field (value@ #name it)
-          g!it (|> (value@ #alias it)
+    (let [field (the #name it)
+          g!it (|> (the #alias it)
                    (maybe.else field)
                    (..namespaced namespace class_name alias)
                    code.local_symbol)
-          :field: (value@ #anonymous it)]
+          :field: (the #anonymous it)]
       (` ((~! syntax:) ((~ g!it) [])
           (.# (~! meta.monad) (~' in)
               (.list (`' (.exec
@@ -483,13 +483,13 @@
 
   (def: (virtual_field_definition [class_name class_parameters] alias namespace it)
     (-> Declaration Alias Namespace (Named Output) Code)
-    (let [name (value@ #name it)
-          g!it (|> (value@ #alias it)
+    (let [name (the #name it)
+          g!it (|> (the #alias it)
                    (maybe.else name)
                    (..namespaced namespace class_name alias)
                    code.local_symbol)
           path (%.format (..host_path class_name) "." name)
-          :field: (value@ #anonymous it)
+          :field: (the #anonymous it)
           g!variables (list#each code.local_symbol class_parameters)
           g!class (` ((~ (code.local_symbol (maybe.else class_name alias))) (~+ g!variables)))]
       (` (.def: ((~ g!it) (~ g!it))
@@ -502,18 +502,18 @@
 
   (def: (field_definition import! class alias namespace it)
     (-> (List Code) Declaration Alias Namespace Field Code)
-    (if (value@ #static? it)
-      (..static_field_definition import! class alias namespace (value@ #member it))
-      (..virtual_field_definition class alias namespace (value@ #member it))))
+    (if (the #static? it)
+      (..static_field_definition import! class alias namespace (the #member it))
+      (..virtual_field_definition class alias namespace (the #member it))))
 
   (def: (static_method_definition import! [class_name class_parameters] alias namespace it)
     (-> (List Code) Declaration Alias Namespace (Named Procedure) Code)
-    (let [method (value@ #name it)
-          name (|> (value@ #alias it)
-                   (maybe.else (value@ #name it))
+    (let [method (the #name it)
+          name (|> (the #alias it)
+                   (maybe.else (the #name it))
                    (..namespaced namespace class_name alias))]
       (|> it
-          (with@ #alias {.#Some name})
+          (has #alias {.#Some name})
           (..procedure_definition import!
                                   (for [@.js (` (<constant> (~ (code.text (%.format (..host_path class_name) "." method)))))
                                         @.ruby (` (<constant> (~ (code.text (%.format (..host_path class_name) "::" method)))))]
@@ -523,20 +523,20 @@
 
   (def: (virtual_method_definition [class_name class_parameters] alias namespace it)
     (-> Declaration Alias Namespace (Named Procedure) Code)
-    (let [method (value@ #name it)
-          g!it (|> (value@ #alias it)
+    (let [method (the #name it)
+          g!it (|> (the #alias it)
                    (maybe.else method)
                    (..namespaced namespace class_name alias)
                    code.local_symbol)
-          procedure (value@ #anonymous it)
-          input (value@ #input procedure)
-          g!input_variables (list#each code.local_symbol (value@ #variables input))
-          :parameters: (value@ #parameters input)
+          procedure (the #anonymous it)
+          input (the #input procedure)
+          g!input_variables (list#each code.local_symbol (the #variables input))
+          :parameters: (the #parameters input)
           g!parameters (..parameters :parameters:)
           g!class_variables (list#each code.local_symbol class_parameters)
           g!class (` ((~ (code.local_symbol (maybe.else class_name alias))) (~+ g!class_variables)))
-          :output: (value@ #output procedure)]
-      (` (.def: ((~ g!it) (~+ (list#each (value@ #mandatory) g!parameters)) (~ g!it))
+          :output: (the #output procedure)]
+      (` (.def: ((~ g!it) (~+ (list#each (the #mandatory) g!parameters)) (~ g!it))
            (.All ((~ g!it) (~+ g!class_variables) (~+ g!input_variables))
              (.-> (~+ (list#each ..output_type :parameters:))
                   (~ g!class)
@@ -552,9 +552,9 @@
 
   (def: (method_definition import! class alias namespace it)
     (-> (List Code) Declaration Alias Namespace Method Code)
-    (if (value@ #static? it)
-      (static_method_definition import! class alias namespace (value@ #member it))
-      (virtual_method_definition class alias namespace (value@ #member it))))
+    (if (the #static? it)
+      (static_method_definition import! class alias namespace (the #member it))
+      (virtual_method_definition class alias namespace (the #member it))))
 
   (syntax: .public (import: [host_module (<>.maybe <code>.text)
                              it ..import])
@@ -571,14 +571,14 @@
 
         {#Procedure it}
         (in (list (..procedure_definition host_module_import!
-                                          (` (<constant> (~ (code.text (..host_path (value@ #name it))))))
+                                          (` (<constant> (~ (code.text (..host_path (the #name it))))))
                                           it)))
 
         {#Class it}
-        (let [class (value@ #declaration it)
-              alias (value@ #class_alias it)
+        (let [class (the #declaration it)
+              alias (the #class_alias it)
               [class_name class_parameters] class
-              namespace (value@ #namespace it)
+              namespace (the #namespace it)
               g!class_variables (list#each code.local_symbol class_parameters)
               declaration (` ((~ (code.local_symbol (maybe.else class_name alias)))
                               (~+ g!class_variables)))]
@@ -597,7 +597,7 @@
                                             
                                             {#Method it}
                                             (..method_definition host_module_import! class alias namespace it)))))
-                                (value@ #members it)))))
+                                (the #members it)))))
         )))
 
   (for [@.ruby (as_is)]
diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux
index 0a6acfa83..43a327049 100644
--- a/stdlib/source/library/lux/ffi.old.lux
+++ b/stdlib/source/library/lux/ffi.old.lux
@@ -1137,7 +1137,7 @@
                                                           .let [arg_decls' (: (List Text) (list#each (|>> product.right (simple_class$ (list)))
                                                                                                      arg_decls))]]
                                                          (in (`' ((~ (code.text (format "jvm invokespecial"
-                                                                                        ":" (value@ #super_class_name super_class)
+                                                                                        ":" (the #super_class_name super_class)
                                                                                         ":" name
                                                                                         ":" (text.interposed "," arg_decls'))))
                                                                   (~' _jvm_this) (~+ args)))))))]
@@ -1330,15 +1330,15 @@
   (-> (List Type_Parameter) Import_Member_Declaration (List Type_Parameter))
   (case member
     {#ConstructorDecl [commons _]}
-    (list#composite class_tvars (value@ #import_member_tvars commons))
+    (list#composite class_tvars (the #import_member_tvars commons))
 
     {#MethodDecl [commons _]}
-    (case (value@ #import_member_kind commons)
+    (case (the #import_member_kind commons)
       {#StaticIMK}
-      (value@ #import_member_tvars commons)
+      (the #import_member_tvars commons)
 
       _
-      (list#composite class_tvars (value@ #import_member_tvars commons)))
+      (list#composite class_tvars (the #import_member_tvars commons)))
 
     _
     class_tvars))
@@ -1360,7 +1360,7 @@
                                          #import_member_args))
                arg_types (list#each (: (-> [Bit GenericType] Code)
                                        (function (_ [maybe? arg])
-                                         (let [arg_type (class_type (value@ #import_member_mode commons) type_params arg)]
+                                         (let [arg_type (class_type (the #import_member_mode commons) type_params arg)]
                                            (if maybe?
                                              (` (Maybe (~ arg_type)))
                                              arg_type))))
@@ -1374,7 +1374,7 @@
   (-> Class_Declaration Import_Member_Declaration Code Code)
   (case member
     (^or {#ConstructorDecl [commons _]} {#MethodDecl [commons _]})
-    (if (value@ #import_member_maybe? commons)
+    (if (the #import_member_maybe? commons)
       (` (??? (~ return_term)))
       (let [g!temp (` ((~' ~') (~ (code.symbol ["" " Ω "]))))]
         (` (let [(~ g!temp) (~ return_term)]
@@ -1382,8 +1382,8 @@
                                      (~ g!temp))))
                (~ g!temp)
                (panic! (~ (code.text (format "Cannot produce null references from method calls @ "
-                                             (value@ #class_name class)
-                                             "." (value@ #import_member_alias commons))))))))))
+                                             (the #class_name class)
+                                             "." (the #import_member_alias commons))))))))))
 
     _
     return_term))
@@ -1393,7 +1393,7 @@
      (-> Import_Member_Declaration Code Code)
      (case member
        (^or {#ConstructorDecl [commons _]} {#MethodDecl [commons _]})
-       (if (value@ <tag> commons)
+       (if (the <tag> commons)
          <term_trans>
          return_term)
 
@@ -1485,10 +1485,10 @@
       
       {#ConstructorDecl [commons _]}
       (do meta.monad
-        [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (value@ #import_member_alias commons))])
+        [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (the #import_member_alias commons))])
                jvm_extension (code.text (format "jvm new" ":" full_name ":" (text.interposed "," arg_classes)))
                jvm_interop (|> (` ((~ jvm_extension)
-                                   (~+ (jvm_extension_inputs (value@ #import_member_mode commons) arg_classes arg_function_inputs))))
+                                   (~+ (jvm_extension_inputs (the #import_member_mode commons) arg_classes arg_function_inputs))))
                                (decorate_return_maybe class member)
                                (decorate_return_try member)
                                (decorate_return_io member))]]
@@ -1498,7 +1498,7 @@
       {#MethodDecl [commons method]}
       (with_symbols [g!obj]
         (do meta.monad
-          [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (value@ #import_member_alias commons))])
+          [.let [def_name (code.symbol ["" (..import_name import_format method_prefix (the #import_member_alias commons))])
                  (^open "[0]") commons
                  (^open "[0]") method
                  [jvm_op object_ast] (: [Text (List Code)]
@@ -1518,10 +1518,10 @@
                                              (list g!obj)]
                                             )))
                  jvm_extension (code.text (format "jvm " jvm_op ":" full_name ":" #import_method_name ":" (text.interposed "," arg_classes)))
-                 jvm_interop (|> [(simple_class$ (list) (value@ #import_method_return method))
+                 jvm_interop (|> [(simple_class$ (list) (the #import_method_return method))
                                   (` ((~ jvm_extension) (~+ (list#each un_quote object_ast))
-                                      (~+ (jvm_extension_inputs (value@ #import_member_mode commons) arg_classes arg_function_inputs))))]
-                                 (auto_convert_output (value@ #import_member_mode commons))
+                                      (~+ (jvm_extension_inputs (the #import_member_mode commons) arg_classes arg_function_inputs))))]
+                                 (auto_convert_output (the #import_member_mode commons))
                                  (decorate_return_maybe class member)
                                  (decorate_return_try member)
                                  (decorate_return_io member))]]
diff --git a/stdlib/source/library/lux/locale/language.lux b/stdlib/source/library/lux/locale/language.lux
index 6074d9dde..50604e065 100644
--- a/stdlib/source/library/lux/locale/language.lux
+++ b/stdlib/source/library/lux/locale/language.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]]
-    [data
-     ["[0]" text]]
-    [type
-     abstract]
-    [macro
-     ["[0]" template]]]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]]
+   [data
+    ["[0]" text]]
+   [type
+    abstract]
+   [macro
+    ["[0]" template]]]])
 
 ... https://en.wikipedia.org/wiki/List_of_ISO_639-2_codes
 (abstract: .public Language
@@ -20,7 +20,7 @@
   (template [<name> <tag>]
     [(def: .public <name>
        (-> Language Text)
-       (|>> :representation (value@ <tag>)))]
+       (|>> :representation (the <tag>)))]
 
     [name #name]
     [code #code]
diff --git a/stdlib/source/library/lux/locale/territory.lux b/stdlib/source/library/lux/locale/territory.lux
index 14a1df61a..8df6f861d 100644
--- a/stdlib/source/library/lux/locale/territory.lux
+++ b/stdlib/source/library/lux/locale/territory.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]]
-    [data
-     ["[0]" text]]
-    [type
-     abstract]
-    [macro
-     ["[0]" template]]]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]]
+   [data
+    ["[0]" text]]
+   [type
+    abstract]
+   [macro
+    ["[0]" template]]]])
 
 ... https://en.wikipedia.org/wiki/ISO_3166-1
 (abstract: .public Territory
@@ -23,7 +23,7 @@
     [(def: .public <name>
        (-> Territory <type>)
        (|>> :representation
-            (value@ <field>)))]
+            (the <field>)))]
 
     [name         #name  Text]
     [short_code   #short Text]
@@ -308,6 +308,6 @@
     
     (def: hash
       (|>> :representation
-           (value@ #long)
+           (the #long)
            (# text.hash hash))))
   )
diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux
index 55495bc08..a01e438de 100644
--- a/stdlib/source/library/lux/macro/local.lux
+++ b/stdlib/source/library/lux/macro/local.lux
@@ -1,21 +1,21 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" meta]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["[0]" product]
-     ["[0]" text]
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]
-      [dictionary
-       ["[0]" plist {"+" PList}]]]]]]
-  ["[0]" //
-   ["[1][0]" code]])
+ [library
+  [lux "*"
+   ["[0]" meta]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["[0]" product]
+    ["[0]" text]
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]
+     [dictionary
+      ["[0]" plist {"+" PList}]]]]]]
+ ["[0]" //
+  ["[1][0]" code]])
 
 (exception: .public (unknown_module [module Text])
   (exception.report
@@ -35,11 +35,11 @@
 (def: (with_module name body)
   (All (_ a) (-> Text (-> Module (Try [Module a])) (Meta a)))
   (function (_ compiler)
-    (case (|> compiler (value@ .#modules) (plist.value name))
+    (case (|> compiler (the .#modules) (plist.value name))
       {.#Some module}
       (case (body module)
         {try.#Success [module' output]}
-        {try.#Success [(revised@ .#modules (plist.has name module') compiler)
+        {try.#Success [(revised .#modules (plist.has name module') compiler)
                        output]}
         
         {try.#Failure error}
@@ -57,9 +57,9 @@
                          (plist.has definition_name definition))]]
     (..with_module module_name
       (function (_ module)
-        (case (|> module (value@ .#definitions) (plist.value definition_name))
+        (case (|> module (the .#definitions) (plist.value definition_name))
           {.#None}
-          {try.#Success [(revised@ .#definitions add_macro! module)
+          {try.#Success [(revised .#definitions add_macro! module)
                          []]}
           
           {.#Some _}
@@ -73,9 +73,9 @@
                            (plist.lacks definition_name))]]
     (..with_module module_name
       (function (_ module)
-        (case (|> module (value@ .#definitions) (plist.value definition_name))
+        (case (|> module (the .#definitions) (plist.value definition_name))
           {.#Some _}
-          {try.#Success [(revised@ .#definitions lacks_macro! module)
+          {try.#Success [(revised .#definitions lacks_macro! module)
                          []]}
 
           {.#None}
@@ -89,7 +89,7 @@
        [_ (monad.each ! ..pop_one macros)
         _ (..pop_one self)
         compiler meta.compiler_state]
-       (in (case (value@ .#expected compiler)
+       (in (case (the .#expected compiler)
              {.#Some _}
              (list (' []))
              
diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux
index ee4e68150..d817fa193 100644
--- a/stdlib/source/library/lux/macro/syntax/declaration.lux
+++ b/stdlib/source/library/lux/macro/syntax/declaration.lux
@@ -1,18 +1,18 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]]
-    [control
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text]
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]]]
-    [macro
-     ["[0]" code]]]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]]
+   [control
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text]
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]]]
+   [macro
+    ["[0]" code]]]])
 
 (type: .public Declaration
   (Record
@@ -35,8 +35,8 @@
 
 (def: .public (format value)
   (-> Declaration Code)
-  (let [g!name (code.local_symbol (value@ #name value))]
-    (case (value@ #arguments value)
+  (let [g!name (code.local_symbol (the #name value))]
+    (case (the #arguments value)
       {.#End}
       g!name
       
diff --git a/stdlib/source/library/lux/macro/syntax/definition.lux b/stdlib/source/library/lux/macro/syntax/definition.lux
index d35d48d9b..6d84be918 100644
--- a/stdlib/source/library/lux/macro/syntax/definition.lux
+++ b/stdlib/source/library/lux/macro/syntax/definition.lux
@@ -1,27 +1,27 @@
 (.using
-  [library
-   [lux {"-" Definition}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [monad {"+" do}]]
-    [control
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" sum]
-     ["[0]" product]
-     ["[0]" bit]
-     ["[0]" text
-      ["%" format]]
-     [collection
-      ["[0]" list]]]
-    ["[0]" macro
-     ["[0]" code]]
-    ["[0]" meta
-     ["[0]" location]]]]
-  ["[0]" //
-   ["[1][0]" check {"+" Check}]])
+ [library
+  [lux {"-" Definition}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [monad {"+" do}]]
+   [control
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" sum]
+    ["[0]" product]
+    ["[0]" bit]
+    ["[0]" text
+     ["%" format]]
+    [collection
+     ["[0]" list]]]
+   ["[0]" macro
+    ["[0]" code]]
+   ["[0]" meta
+    ["[0]" location]]]]
+ ["[0]" //
+  ["[1][0]" check {"+" Check}]])
 
 (type: .public Definition
   (Record
@@ -46,9 +46,9 @@
 
 (def: dummy
   Code
-  (` [.#module (~ (code.text (value@ .#module location.dummy)))
-      .#line   (~ (code.nat (value@ .#line location.dummy)))
-      .#column (~ (code.nat (value@ .#column location.dummy)))]))
+  (` [.#module (~ (code.text (the .#module location.dummy)))
+      .#line   (~ (code.nat (the .#line location.dummy)))
+      .#column (~ (code.nat (the .#column location.dummy)))]))
 
 (def: .public (format (^open "_[0]"))
   (-> Definition Code)
@@ -88,7 +88,7 @@
   (-> Lux (Parser Definition))
   (do <>.monad
     [definition (..parser compiler)
-     _ (case (value@ #value definition)
+     _ (case (the #value definition)
          {.#Left _}
          (in [])
 
diff --git a/stdlib/source/library/lux/macro/syntax/input.lux b/stdlib/source/library/lux/macro/syntax/input.lux
index 2b59fce16..6d7d8c357 100644
--- a/stdlib/source/library/lux/macro/syntax/input.lux
+++ b/stdlib/source/library/lux/macro/syntax/input.lux
@@ -1,17 +1,17 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]]
-    [control
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     [collection
-      ["[0]" list ("[1]#[0]" monad)]]]
-    [macro
-     ["[0]" code]]]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]]
+   [control
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    [collection
+     ["[0]" list ("[1]#[0]" monad)]]]
+   [macro
+    ["[0]" code]]]])
 
 (type: .public Input
   (Record
@@ -28,8 +28,8 @@
 (def: .public format
   (-> (List Input) Code)
   (|>> (list#each (function (_ value)
-                    (list (value@ #binding value)
-                          (value@ #type value))))
+                    (list (the #binding value)
+                          (the #type value))))
        list#conjoint
        code.tuple))
 
diff --git a/stdlib/source/library/lux/macro/template.lux b/stdlib/source/library/lux/macro/template.lux
index 57373d640..9e5db759a 100644
--- a/stdlib/source/library/lux/macro/template.lux
+++ b/stdlib/source/library/lux/macro/template.lux
@@ -1,30 +1,30 @@
 (.using
-  [library
-   [lux {"-" let local macro symbol}
-    ["[0]" meta]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser ("[1]#[0]" functor)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" bit ("[1]#[0]" codec)]
-     ["[0]" text]
-     [collection
-      ["[0]" list ("[1]#[0]" monad)]
-      ["[0]" dictionary {"+" Dictionary}]]]
-    [math
-     [number
-      ["[0]" nat ("[1]#[0]" decimal)]
-      ["[0]" int ("[1]#[0]" decimal)]
-      ["[0]" rev ("[1]#[0]" decimal)]
-      ["[0]" frac ("[1]#[0]" decimal)]]]]]
-  ["[0]" //
-   [syntax {"+" syntax:}]
-   ["[0]" code]
-   ["[0]" local]])
+ [library
+  [lux {"-" let local macro symbol}
+   ["[0]" meta]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser ("[1]#[0]" functor)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" bit ("[1]#[0]" codec)]
+    ["[0]" text]
+    [collection
+     ["[0]" list ("[1]#[0]" monad)]
+     ["[0]" dictionary {"+" Dictionary}]]]
+   [math
+    [number
+     ["[0]" nat ("[1]#[0]" decimal)]
+     ["[0]" int ("[1]#[0]" decimal)]
+     ["[0]" rev ("[1]#[0]" decimal)]
+     ["[0]" frac ("[1]#[0]" decimal)]]]]]
+ ["[0]" //
+  [syntax {"+" syntax:}]
+  ["[0]" code]
+  ["[0]" local]])
 
 (syntax: .public (spliced [parts (<code>.tuple (<>.some <code>.any))])
   (in parts))
@@ -156,14 +156,14 @@
     [here_name meta.current_module_name
      expression? (: (Meta Bit)
                     (function (_ lux)
-                      {try.#Success [lux (case (value@ .#expected lux)
+                      {try.#Success [lux (case (the .#expected lux)
                                            {.#None}
                                            false
 
                                            {.#Some _}
                                            true)]}))
      g!pop (local.push (list#each (function (_ local)
-                                    [[here_name (value@ #name local)]
+                                    [[here_name (the #name local)]
                                      (..macro local)])
                                   locals))]
     (if expression?
diff --git a/stdlib/source/library/lux/math/number/complex.lux b/stdlib/source/library/lux/math/number/complex.lux
index 636a77838..b1c14d1bb 100644
--- a/stdlib/source/library/lux/math/number/complex.lux
+++ b/stdlib/source/library/lux/math/number/complex.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" math]
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [codec {"+" Codec}]
-     ["M" monad {"+" Monad do}]]
-    [control
-     ["[0]" maybe]
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]]]
-    [macro
-     [syntax {"+" syntax:}]
-     ["[0]" code]]
-    [math
-     [number
-      ["n" nat]
-      ["f" frac]
-      ["[0]" int]]]]])
+ [library
+  [lux "*"
+   ["[0]" math]
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [codec {"+" Codec}]
+    ["M" monad {"+" Monad do}]]
+   [control
+    ["[0]" maybe]
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]]]
+   [macro
+    [syntax {"+" syntax:}]
+    ["[0]" code]]
+   [math
+    [number
+     ["n" nat]
+     ["f" frac]
+     ["[0]" int]]]]])
 
 (type: .public Complex
   (Record
@@ -50,23 +50,23 @@
 
 (def: .public (not_a_number? complex)
   (-> Complex Bit)
-  (or (f.not_a_number? (value@ #real complex))
-      (f.not_a_number? (value@ #imaginary complex))))
+  (or (f.not_a_number? (the #real complex))
+      (f.not_a_number? (the #imaginary complex))))
 
 (def: .public (= param input)
   (-> Complex Complex Bit)
-  (and (f.= (value@ #real param)
-            (value@ #real input))
-       (f.= (value@ #imaginary param)
-            (value@ #imaginary input))))
+  (and (f.= (the #real param)
+            (the #real input))
+       (f.= (the #imaginary param)
+            (the #imaginary input))))
 
 (template [<name> <op>]
   [(def: .public (<name> param input)
      (-> Complex Complex Complex)
-     [#real (<op> (value@ #real param)
-                  (value@ #real input))
-      #imaginary (<op> (value@ #imaginary param)
-                       (value@ #imaginary input))])]
+     [#real (<op> (the #real param)
+                  (the #real input))
+      #imaginary (<op> (the #imaginary param)
+                       (the #imaginary input))])]
 
   [+ f.+]
   [- f.-]
@@ -80,8 +80,8 @@
 (template [<name> <transform>]
   [(def: .public <name>
      (-> Complex Complex)
-     (|>> (revised@ #real <transform>)
-          (revised@ #imaginary <transform>)))]
+     (|>> (revised #real <transform>)
+          (revised #imaginary <transform>)))]
 
   [opposite f.opposite]
   [signum f.signum]
@@ -89,25 +89,25 @@
 
 (def: .public conjugate
   (-> Complex Complex)
-  (revised@ #imaginary f.opposite))
+  (revised #imaginary f.opposite))
 
 (def: .public (*' param input)
   (-> Frac Complex Complex)
   [#real (f.* param
-              (value@ #real input))
+              (the #real input))
    #imaginary (f.* param
-                   (value@ #imaginary input))])
+                   (the #imaginary input))])
 
 (def: .public (* param input)
   (-> Complex Complex Complex)
-  [#real (f.- (f.* (value@ #imaginary param)
-                   (value@ #imaginary input))
-              (f.* (value@ #real param)
-                   (value@ #real input)))
-   #imaginary (f.+ (f.* (value@ #real param)
-                        (value@ #imaginary input))
-                   (f.* (value@ #imaginary param)
-                        (value@ #real input)))])
+  [#real (f.- (f.* (the #imaginary param)
+                   (the #imaginary input))
+              (f.* (the #real param)
+                   (the #real input)))
+   #imaginary (f.+ (f.* (the #real param)
+                        (the #imaginary input))
+                   (f.* (the #imaginary param)
+                        (the #real input)))])
 
 (def: .public (/ param input)
   (-> Complex Complex Complex)
@@ -116,12 +116,12 @@
              (f.abs #real))
       (let [quot (f./ #imaginary #real)
             denom (|> #real (f.* quot) (f.+ #imaginary))]
-        [..#real (|> (value@ ..#real input) (f.* quot) (f.+ (value@ ..#imaginary input)) (f./ denom))
-         ..#imaginary (|> (value@ ..#imaginary input) (f.* quot) (f.- (value@ ..#real input)) (f./ denom))])
+        [..#real (|> (the ..#real input) (f.* quot) (f.+ (the ..#imaginary input)) (f./ denom))
+         ..#imaginary (|> (the ..#imaginary input) (f.* quot) (f.- (the ..#real input)) (f./ denom))])
       (let [quot (f./ #real #imaginary)
             denom (|> #imaginary (f.* quot) (f.+ #real))]
-        [..#real (|> (value@ ..#imaginary input) (f.* quot) (f.+ (value@ ..#real input)) (f./ denom))
-         ..#imaginary (|> (value@ ..#imaginary input) (f.- (f.* quot (value@ ..#real input))) (f./ denom))]))))
+        [..#real (|> (the ..#imaginary input) (f.* quot) (f.+ (the ..#real input)) (f./ denom))
+         ..#imaginary (|> (the ..#imaginary input) (f.- (f.* quot (the ..#real input))) (f./ denom))]))))
 
 (def: .public (/' param subject)
   (-> Frac Complex Complex)
@@ -133,8 +133,8 @@
   (-> Complex Complex Complex)
   (let [scaled (/ param input)
         quotient (|> scaled
-                     (revised@ #real math.floor)
-                     (revised@ #imaginary math.floor))]
+                     (revised #real math.floor)
+                     (revised #imaginary math.floor))]
     (- (* quotient param)
        input)))
 
@@ -311,8 +311,8 @@
 (def: .public (approximately? margin_of_error standard value)
   (-> Frac Complex Complex Bit)
   (and (f.approximately? margin_of_error
-                         (value@ ..#real standard)
-                         (value@ ..#real value))
+                         (the ..#real standard)
+                         (the ..#real value))
        (f.approximately? margin_of_error
-                         (value@ ..#imaginary standard)
-                         (value@ ..#imaginary value))))
+                         (the ..#imaginary standard)
+                         (the ..#imaginary value))))
diff --git a/stdlib/source/library/lux/math/number/ratio.lux b/stdlib/source/library/lux/math/number/ratio.lux
index b1cd62a3c..93bdca39e 100644
--- a/stdlib/source/library/lux/math/number/ratio.lux
+++ b/stdlib/source/library/lux/math/number/ratio.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux {"-" nat}
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [order {"+" Order}]
-     [monoid {"+" Monoid}]
-     [codec {"+" Codec}]
-     [monad {"+" do}]]
-    [control
-     ["[0]" function]
-     ["[0]" maybe]
-     ["[0]" try]
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text ("[1]#[0]" monoid)]]
-    [macro
-     [syntax {"+" syntax:}]
-     ["[0]" code]]]]
-  [//
-   ["n" nat ("[1]#[0]" decimal)]])
+ [library
+  [lux {"-" nat}
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [order {"+" Order}]
+    [monoid {"+" Monoid}]
+    [codec {"+" Codec}]
+    [monad {"+" do}]]
+   [control
+    ["[0]" function]
+    ["[0]" maybe]
+    ["[0]" try]
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text ("[1]#[0]" monoid)]]
+   [macro
+    [syntax {"+" syntax:}]
+    ["[0]" code]]]]
+ [//
+  ["n" nat ("[1]#[0]" decimal)]])
 
 (type: .public Ratio
   (Record
@@ -29,8 +29,8 @@
 
 (def: .public (nat value)
   (-> Ratio (Maybe Nat))
-  (case (value@ #denominator value)
-    1 {.#Some (value@ #numerator value)}
+  (case (the #denominator value)
+    1 {.#Some (the #numerator value)}
     _ {.#None}))
 
 (def: (normal (^open "_[0]"))
@@ -46,10 +46,10 @@
 
 (def: .public (= parameter subject)
   (-> Ratio Ratio Bit)
-  (and (n.= (value@ #numerator parameter)
-            (value@ #numerator subject))
-       (n.= (value@ #denominator parameter)
-            (value@ #denominator subject))))
+  (and (n.= (the #numerator parameter)
+            (the #numerator subject))
+       (n.= (the #denominator parameter)
+            (the #denominator subject))))
 
 (implementation: .public equivalence
   (Equivalence Ratio)
@@ -58,10 +58,10 @@
 
 (def: (equalized parameter subject)
   (-> Ratio Ratio [Nat Nat])
-  [(n.* (value@ #denominator subject)
-        (value@ #numerator parameter))
-   (n.* (value@ #denominator parameter)
-        (value@ #numerator subject))])
+  [(n.* (the #denominator subject)
+        (the #numerator parameter))
+   (n.* (the #denominator parameter)
+        (the #numerator subject))])
 
 (def: .public (< parameter subject)
   (-> Ratio Ratio Bit)
@@ -92,22 +92,22 @@
   (-> Ratio Ratio Ratio)
   (let [[parameter' subject'] (..equalized parameter subject)]
     (normal [(n.+ parameter' subject')
-             (n.* (value@ #denominator parameter)
-                  (value@ #denominator subject))])))
+             (n.* (the #denominator parameter)
+                  (the #denominator subject))])))
 
 (def: .public (- parameter subject)
   (-> Ratio Ratio Ratio)
   (let [[parameter' subject'] (..equalized parameter subject)]
     (normal [(n.- parameter' subject')
-             (n.* (value@ #denominator parameter)
-                  (value@ #denominator subject))])))
+             (n.* (the #denominator parameter)
+                  (the #denominator subject))])))
 
 (def: .public (* parameter subject)
   (-> Ratio Ratio Ratio)
-  (normal [(n.* (value@ #numerator parameter)
-                (value@ #numerator subject))
-           (n.* (value@ #denominator parameter)
-                (value@ #denominator subject))]))
+  (normal [(n.* (the #numerator parameter)
+                (the #numerator subject))
+           (n.* (the #denominator parameter)
+                (the #denominator subject))]))
 
 (def: .public (/ parameter subject)
   (-> Ratio Ratio Ratio)
@@ -118,7 +118,7 @@
   (-> Ratio Ratio Ratio)
   (let [[parameter' subject'] (..equalized parameter subject)
         quot (n./ parameter' subject')]
-    (..- (revised@ #numerator (n.* quot) parameter)
+    (..- (revised #numerator (n.* quot) parameter)
          subject)))
 
 (def: .public (reciprocal (^open "_[0]"))
diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux
index 8bf80bce5..5f6dad623 100644
--- a/stdlib/source/library/lux/meta.lux
+++ b/stdlib/source/library/lux/meta.lux
@@ -112,12 +112,12 @@
   (All (_ a)
     (-> Text (Meta a)))
   (function (_ state)
-    {try.#Failure (location.with (value@ .#location state) error)}))
+    {try.#Failure (location.with (the .#location state) error)}))
 
 (def: .public (module name)
   (-> Text (Meta Module))
   (function (_ lux)
-    (case (plist.value name (value@ .#modules lux))
+    (case (plist.value name (the .#modules lux))
       {.#Some module}
       {try.#Success [lux module]}
 
@@ -127,7 +127,7 @@
 (def: .public current_module_name
   (Meta Text)
   (function (_ lux)
-    (case (value@ .#current_module lux)
+    (case (the .#current_module lux)
       {.#Some current_module}
       {try.#Success [lux current_module]}
 
@@ -173,7 +173,7 @@
                           {.#None}
 
                           {try.#Success [_ this_module]}
-                          (let [modules (value@ .#modules lux)]
+                          (let [modules (the .#modules lux)]
                             (loop [module module
                                    name name]
                               (do maybe.monad
@@ -181,7 +181,7 @@
                                  definition (: (Maybe Global)
                                                (|> $module
                                                    (: Module)
-                                                   (value@ .#definitions)
+                                                   (the .#definitions)
                                                    (plist.value name)))]
                                 (case definition
                                   {.#Alias [r_module r_name]}
@@ -204,13 +204,13 @@
 (def: .public seed
   (Meta Nat)
   (function (_ lux)
-    {try.#Success [(revised@ .#seed ++ lux)
-                   (value@ .#seed lux)]}))
+    {try.#Success [(revised .#seed ++ lux)
+                   (the .#seed lux)]}))
 
 (def: .public (module_exists? module)
   (-> Text (Meta Bit))
   (function (_ lux)
-    {try.#Success [lux (case (plist.value module (value@ .#modules lux))
+    {try.#Success [lux (case (plist.value module (the .#modules lux))
                          {.#Some _}
                          #1
                          
@@ -241,7 +241,7 @@
     {.#Var var}
     (function (_ lux)
       (case (|> lux
-                (value@ [.#type_context .#var_bindings])
+                (the [.#type_context .#var_bindings])
                 (type_variable var))
         (^or {.#None} {.#Some {.#Var _}})
         {try.#Success [lux type]}
@@ -260,15 +260,15 @@
       (case (do maybe.monad
               [scope (list.example (function (_ env)
                                      (or (list.any? test (: (List [Text [Type Any]])
-                                                            (value@ [.#locals .#mappings] env)))
+                                                            (the [.#locals .#mappings] env)))
                                          (list.any? test (: (List [Text [Type Any]])
-                                                            (value@ [.#captured .#mappings] env)))))
-                                   (value@ .#scopes lux))
+                                                            (the [.#captured .#mappings] env)))))
+                                   (the .#scopes lux))
                [_ [type _]] (on_either (list.example test)
                                        (: (List [Text [Type Any]])
-                                          (value@ [.#locals .#mappings] scope))
+                                          (the [.#locals .#mappings] scope))
                                        (: (List [Text [Type Any]])
-                                          (value@ [.#captured .#mappings] scope)))]
+                                          (the [.#captured .#mappings] scope)))]
               (in type))
         {.#Some var_type}
         ((clean_type var_type) lux)
@@ -301,28 +301,28 @@
       (case (: (Maybe Global)
                (do maybe.monad
                  [(^open "[0]") (|> lux
-                                    (value@ .#modules)
+                                    (the .#modules)
                                     (plist.value normal_module))]
                  (plist.value normal_short #definitions)))
         {.#Some definition}
         {try.#Success [lux definition]}
 
         _
-        (let [current_module (|> lux (value@ .#current_module) (maybe.else "???"))
+        (let [current_module (|> lux (the .#current_module) (maybe.else "???"))
               all_known_modules (|> lux
-                                    (value@ .#modules)
+                                    (the .#modules)
                                     (list#each product.left)
                                     ..module_listing)]
           {try.#Failure ($_ text#composite
                             "Unknown definition: " (symbol#encoded name) text.new_line
                             "    Current module: " current_module text.new_line
-                            (case (plist.value current_module (value@ .#modules lux))
+                            (case (plist.value current_module (the .#modules lux))
                               {.#Some this_module}
                               (let [candidates (|> lux
-                                                   (value@ .#modules)
+                                                   (the .#modules)
                                                    (list#each (function (_ [module_name module])
                                                                 (|> module
-                                                                    (value@ .#definitions)
+                                                                    (the .#definitions)
                                                                     (list.all (function (_ [def_name global])
                                                                                 (case global
                                                                                   (^or {.#Definition [exported? _]}
@@ -344,10 +344,10 @@
                                                    (list.sorted text#<)
                                                    (text.interposed ..listing_separator))
                                     imports (|> this_module
-                                                (value@ .#imports)
+                                                (the .#imports)
                                                 ..module_listing)
                                     aliases (|> this_module
-                                                (value@ .#module_aliases)
+                                                (the .#module_aliases)
                                                 (list#each (function (_ [alias real]) ($_ text#composite alias " => " real)))
                                                 (list.sorted text#<)
                                                 (text.interposed ..listing_separator))]
@@ -454,12 +454,12 @@
 (def: .public (globals module)
   (-> Text (Meta (List [Text Global])))
   (function (_ lux)
-    (case (plist.value module (value@ .#modules lux))
+    (case (plist.value module (the .#modules lux))
       {.#None}
       {try.#Failure ($_ text#composite "Unknown module: " module)}
       
       {.#Some module}
-      {try.#Success [lux (value@ .#definitions module)]})))
+      {try.#Success [lux (the .#definitions module)]})))
 
 (def: .public (definitions module)
   (-> Text (Meta (List [Text Definition])))
@@ -496,7 +496,7 @@
   (Meta (List [Text Module]))
   (function (_ lux)
     (|> lux
-        (value@ .#modules)
+        (the .#modules)
         [lux]
         {try.#Success})))
 
@@ -505,7 +505,7 @@
   (do ..monad
     [.let [[module_name name] type_name]
      module (..module module_name)]
-    (case (plist.value name (value@ .#definitions module))
+    (case (plist.value name (the .#definitions module))
       {.#Some {.#Type [exported? type labels]}}
       (case labels
         (^or {.#Left labels}
@@ -519,12 +519,12 @@
 (def: .public location
   (Meta Location)
   (function (_ lux)
-    {try.#Success [lux (value@ .#location lux)]}))
+    {try.#Success [lux (the .#location lux)]}))
 
 (def: .public expected_type
   (Meta Type)
   (function (_ lux)
-    (case (value@ .#expected lux)
+    (case (the .#expected lux)
       {.#Some type}
       {try.#Success [lux type]}
 
@@ -546,7 +546,7 @@
 (def: .public (imported? import)
   (-> Text (Meta Bit))
   (# ..functor each
-     (|>> (value@ .#imports) (list.any? (text#= import)))
+     (|>> (the .#imports) (list.any? (text#= import)))
      ..current_module))
 
 (template [<name> <tag> <description>]
@@ -556,7 +556,7 @@
        [.let [[module name] label_name]
         =module (..module module)
         this_module_name ..current_module_name]
-       (case (plist.value name (value@ .#definitions =module))
+       (case (plist.value name (the .#definitions =module))
          {.#Some {<tag> [exported? type group idx]}}
          (if (or (text#= this_module_name module)
                  exported?)
@@ -593,18 +593,18 @@
 
                       _
                       {.#None}))
-                  (value@ .#definitions =module)))))
+                  (the .#definitions =module)))))
 
 (def: .public locals
   (Meta (List (List [Text Type])))
   (function (_ lux)
-    (case (list.inits (value@ .#scopes lux))
+    (case (list.inits (the .#scopes lux))
       {.#None}
       {try.#Failure "No local environment"}
 
       {.#Some scopes}
       {try.#Success [lux
-                     (list#each (|>> (value@ [.#locals .#mappings])
+                     (list#each (|>> (the [.#locals .#mappings])
                                      (list#each (function (_ [name [type _]])
                                                   [name type])))
                                 scopes)]})))
@@ -637,7 +637,7 @@
 (def: .public type_context
   (Meta Type_Context)
   (function (_ lux)
-    {try.#Success [lux (value@ .#type_context lux)]}))
+    {try.#Success [lux (the .#type_context lux)]}))
 
 (def: .public (lifted result)
   (All (_ a) (-> (Try a) (Meta a)))
@@ -651,7 +651,7 @@
 (def: .public (eval type code)
   (-> Type Code (Meta Any))
   (do [! ..monad]
-    [eval (# ! each (value@ .#eval)
+    [eval (# ! each (the .#eval)
              ..compiler_state)]
     (eval type code)))
 
@@ -670,7 +670,7 @@
      (Meta <type>)
      (function (_ lux)
        {try.#Success [lux
-                      (value@ [.#info <slot>] lux)]}))]
+                      (the [.#info <slot>] lux)]}))]
 
   [Text target .#target]
   [Text version .#version]
diff --git a/stdlib/source/library/lux/meta/location.lux b/stdlib/source/library/lux/meta/location.lux
index 1c2908972..1080669a2 100644
--- a/stdlib/source/library/lux/meta/location.lux
+++ b/stdlib/source/library/lux/meta/location.lux
@@ -8,9 +8,9 @@
   (Equivalence Location)
 
   (def: (= reference subject)
-    (and ("lux text =" (value@ .#module reference) (value@ .#module subject))
-         ("lux i64 =" (value@ .#line reference) (value@ .#line subject))
-         ("lux i64 =" (value@ .#column reference) (value@ .#column subject)))))
+    (and ("lux text =" (the .#module reference) (the .#module subject))
+         ("lux i64 =" (the .#line reference) (the .#line subject))
+         ("lux i64 =" (the .#column reference) (the .#column subject)))))
 
 (def: .public dummy
   Location
@@ -21,12 +21,12 @@
 (macro: .public (here tokens compiler)
   (case tokens
     {.#End}
-    (let [location (value@ .#location compiler)]
+    (let [location (the .#location compiler)]
       {.#Right [compiler
                 (list (` (.: .Location
-                             [.#module (~ [..dummy {.#Text (value@ .#module location)}])
-                              .#line (~ [..dummy {.#Nat (value@ .#line location)}])
-                              .#column (~ [..dummy {.#Nat (value@ .#column location)}])])))]})
+                             [.#module (~ [..dummy {.#Text (the .#module location)}])
+                              .#line (~ [..dummy {.#Nat (the .#line location)}])
+                              .#column (~ [..dummy {.#Nat (the .#column location)}])])))]})
 
     _
     {.#Left (`` (("lux in-module" (~~ (static .prelude_module)) wrong_syntax_error) (symbol ..here)))}))
diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux
index 2e12d2c19..b3f54a375 100644
--- a/stdlib/source/library/lux/target/js.lux
+++ b/stdlib/source/library/lux/target/js.lux
@@ -1,6 +1,6 @@
 (.using
   [library
-   [lux {"-" Location Code Label or and function if undefined for comment not int try ++ --}
+   [lux {"-" Location Code Label or and function if undefined for comment not int try ++ -- the}
     [control
      [pipe {"+" case>}]]
     [data
diff --git a/stdlib/source/library/lux/target/jvm/attribute/code.lux b/stdlib/source/library/lux/target/jvm/attribute/code.lux
index 2526ae6bf..f7619a587 100644
--- a/stdlib/source/library/lux/target/jvm/attribute/code.lux
+++ b/stdlib/source/library/lux/target/jvm/attribute/code.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux {"-" Code}
-    [abstract
-     [equivalence {"+" Equivalence}]]
-    [data
-     ["[0]" product]
-     ["[0]" binary {"+" Binary}]
-     [format
-      ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]]
-     [collection
-      ["[0]" sequence {"+" Sequence} ("[1]#[0]" functor mix)]]]
-    [math
-     [number
-      ["n" nat]]]]]
-  ["[0]" /// "_"
-   [bytecode
-    [environment
-     ["[1][0]" limit {"+" Limit}]]]
-   [encoding
-    ["[1][0]" unsigned {"+" U2}]]]
-  ["[0]" / "_"
-   ["[1][0]" exception {"+" Exception}]])
+ [library
+  [lux {"-" Code}
+   [abstract
+    [equivalence {"+" Equivalence}]]
+   [data
+    ["[0]" product]
+    ["[0]" binary {"+" Binary}]
+    [format
+     ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]]
+    [collection
+     ["[0]" sequence {"+" Sequence} ("[1]#[0]" functor mix)]]]
+   [math
+    [number
+     ["n" nat]]]]]
+ ["[0]" /// "_"
+  [bytecode
+   [environment
+    ["[1][0]" limit {"+" Limit}]]]
+  [encoding
+   ["[1][0]" unsigned {"+" U2}]]]
+ ["[0]" / "_"
+  ["[1][0]" exception {"+" Exception}]])
 
 (type: .public (Code Attribute)
   (Record
@@ -38,19 +38,19 @@
       ... u4 code_length;
       ///unsigned.bytes/4
       ... u1 code[code_length];
-      (binary.size (value@ #code code))
+      (binary.size (the #code code))
       ... u2 exception_table_length;
       ///unsigned.bytes/2
       ... exception_table[exception_table_length];
       (|> code
-          (value@ #exception_table)
+          (the #exception_table)
           sequence.size
           (n.* /exception.length))
       ... u2 attributes_count;
       ///unsigned.bytes/2
       ... attribute_info attributes[attributes_count];
       (|> code
-          (value@ #attributes)
+          (the #attributes)
           (sequence#each length)
           (sequence#mix n.+ 0))))
 
@@ -70,14 +70,14 @@
   ($_ binaryF#composite
       ... u2 max_stack;
       ... u2 max_locals;
-      (///limit.writer (value@ #limit code))
+      (///limit.writer (the #limit code))
       ... u4 code_length;
       ... u1 code[code_length];
-      (binaryF.binary/32 (value@ #code code))
+      (binaryF.binary/32 (the #code code))
       ... u2 exception_table_length;
       ... exception_table[exception_table_length];
-      ((binaryF.sequence/16 /exception.writer) (value@ #exception_table code))
+      ((binaryF.sequence/16 /exception.writer) (the #exception_table code))
       ... u2 attributes_count;
       ... attribute_info attributes[attributes_count];
-      ((binaryF.sequence/16 writer) (value@ #attributes code))
+      ((binaryF.sequence/16 writer) (the #attributes code))
       ))
diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux
index 55e9fa71f..29d93fad0 100644
--- a/stdlib/source/library/lux/target/jvm/bytecode.lux
+++ b/stdlib/source/library/lux/target/jvm/bytecode.lux
@@ -121,9 +121,9 @@
   (function (_ [pool environment tracker])
     {try.#Success [[pool
                     environment
-                    (revised@ #next ++ tracker)]
+                    (revised #next ++ tracker)]
                    [..relative#identity
-                    (value@ #next tracker)]]}))
+                    (the #next tracker)]]}))
 
 (exception: .public (label_has_already_been_set [label Label])
   (exception.report
@@ -147,7 +147,7 @@
     (let [[pool environment tracker] state]
       {try.#Success [state
                      [..relative#identity
-                      (case (dictionary.value label (value@ #known tracker))
+                      (case (dictionary.value label (the #known tracker))
                         {.#Some [expected {.#Some address}]}
                         {.#Some [expected address]}
                         
@@ -160,7 +160,7 @@
     (let [[pool environment tracker] state]
       {try.#Success [state
                      [..relative#identity
-                      (case (dictionary.value label (value@ #known tracker))
+                      (case (dictionary.value label (the #known tracker))
                         {.#Some [expected {.#None}]}
                         {.#Some expected}
 
@@ -173,20 +173,20 @@
     (let [[pool environment tracker] state]
       {try.#Success [state
                      [..relative#identity
-                      (value@ /environment.#stack environment)]]})))
+                      (the /environment.#stack environment)]]})))
 
 (with_expansions [<success> (as_is (try|in [[pool
                                              environment
-                                             (revised@ #known
-                                                       (dictionary.has label [actual {.#Some @here}])
-                                                       tracker)]
+                                             (revised #known
+                                                      (dictionary.has label [actual {.#Some @here}])
+                                                      tracker)]
                                             [..relative#identity
                                              []]]))]
   (def: .public (set_label label)
     (-> Label (Bytecode Any))
     (function (_ [pool environment tracker])
-      (let [@here (value@ #program_counter tracker)]
-        (case (dictionary.value label (value@ #known tracker))
+      (let [@here (the #program_counter tracker)]
+        (case (dictionary.value label (the #known tracker))
           {.#Some [expected {.#Some address}]}
           (exception.except ..label_has_already_been_set [label])
           
@@ -197,7 +197,7 @@
           ... {.#None}
           _
           (<| (try|do [actual environment] (/environment.continue (|> environment
-                                                                      (value@ /environment.#stack)
+                                                                      (the /environment.#stack)
                                                                       (maybe.else /stack.empty))
                                                                   environment))
               <success>))))))
@@ -276,7 +276,7 @@
   (All (_ a) (-> Environment (Bytecode a) (Resource [Environment (Sequence Exception) Instruction a])))
   (function (_ pool)
     (<| (try|do [[pool environment tracker] [relative output]] (bytecode [pool environment ..fresh]))
-        (try|do [exceptions instruction] (relative (value@ #known tracker)))
+        (try|do [exceptions instruction] (relative (the #known tracker)))
         (try|in [pool [environment exceptions instruction output]]))))
 
 (def: (step estimator counter)
@@ -291,10 +291,10 @@
                                  (monad.then try.monad (|>> (/environment.produces production)
                                                             (try#each (/environment.has registry))
                                                             try#conjoint))))
-        (try|do program_counter' (step estimator (value@ #program_counter tracker)))
+        (try|do program_counter' (step estimator (the #program_counter tracker)))
         (try|in [[pool
                   environment'
-                  (with@ #program_counter program_counter' tracker)]
+                  (has #program_counter program_counter' tracker)]
                  [(function (_ _)
                     (try|in [..no_exceptions (bytecode input)]))
                   []]]))))
@@ -823,20 +823,20 @@
 
 (def: (acknowledge_label stack label tracker)
   (-> Stack Label Tracker Tracker)
-  (case (dictionary.value label (value@ #known tracker))
+  (case (dictionary.value label (the #known tracker))
     {.#Some _}
     tracker
 
     ... {.#None}
     _
-    (revised@ #known (dictionary.has label [stack {.#None}]) tracker)))
+    (revised #known (dictionary.has label [stack {.#None}]) tracker)))
 
 (template [<consumption> <name> <instruction>]
   [(def: .public (<name> label)
      (-> Label (Bytecode Any))
      (let [[estimator bytecode] <instruction>]
        (function (_ [pool environment tracker])
-         (<| (let [@here (value@ #program_counter tracker)])
+         (<| (let [@here (the #program_counter tracker)])
              (try|do environment' (|> environment
                                       (/environment.consumes <consumption>)))
              (try|do actual (/environment.stack environment'))
@@ -846,7 +846,7 @@
                          environment'
                          (|> tracker
                              (..acknowledge_label actual label)
-                             (with@ #program_counter program_counter'))]
+                             (has #program_counter program_counter'))]
                         [(function (_ resolver)
                            (<| (try|do [expected @to] (..resolve_label label resolver))
                                (try|do _ (exception.assertion ..mismatched_environments [(symbol <instruction>) label @here expected actual]
@@ -887,14 +887,14 @@
      (let [[estimator bytecode] <instruction>]
        (function (_ [pool environment tracker])
          (<| (try|do actual (/environment.stack environment))
-             (let [@here (value@ #program_counter tracker)])
+             (let [@here (the #program_counter tracker)])
              (try|do program_counter' (step estimator @here))
              (try|in (let [@from @here]
                        [[pool
                          (/environment.discontinue environment)
                          (|> tracker
                              (..acknowledge_label actual label)
-                             (with@ #program_counter program_counter'))]
+                             (has #program_counter program_counter'))]
                         [(function (_ resolver)
                            (case (dictionary.value label resolver)
                              {.#Some [expected {.#Some @to}]}
@@ -942,12 +942,12 @@
       (<| (try|do environment' (|> environment
                                    (/environment.consumes $1)))
           (try|do actual (/environment.stack environment'))
-          (try|do program_counter' (step (estimator (list.size afterwards)) (value@ #program_counter tracker)))
-          (try|in (let [@from (value@ #program_counter tracker)]
+          (try|do program_counter' (step (estimator (list.size afterwards)) (the #program_counter tracker)))
+          (try|in (let [@from (the #program_counter tracker)]
                     [[pool
                       environment'
                       (|> (list#mix (..acknowledge_label actual) tracker (list& default at_minimum afterwards))
-                          (with@ #program_counter program_counter'))]
+                          (has #program_counter program_counter'))]
                      [(function (_ resolver)
                         (let [get (: (-> Label (Maybe [Stack (Maybe Address)]))
                                      (function (_ label)
@@ -984,12 +984,12 @@
       (<| (try|do environment' (|> environment
                                    (/environment.consumes $1)))
           (try|do actual (/environment.stack environment'))
-          (try|do program_counter' (step (estimator (list.size cases)) (value@ #program_counter tracker)))
-          (try|in (let [@from (value@ #program_counter tracker)]
+          (try|do program_counter' (step (estimator (list.size cases)) (the #program_counter tracker)))
+          (try|in (let [@from (the #program_counter tracker)]
                     [[pool
                       environment'
                       (|> (list#mix (..acknowledge_label actual) tracker (list& default (list#each product.right cases)))
-                          (with@ #program_counter program_counter'))]
+                          (has #program_counter program_counter'))]
                      [(function (_ resolver)
                         (let [get (: (-> Label (Maybe [Stack (Maybe Address)]))
                                      (function (_ label)
diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux
index 3e6f60b30..222bd7c0e 100644
--- a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux
+++ b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux
@@ -1,21 +1,21 @@
 (.using
-  [library
-   [lux {"-" Type static}
-    [abstract
-     [monad {"+" do}]
-     [monoid {"+" Monoid}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]]]
-  [/
-   ["/[0]" limit {"+" Limit}
-    ["/[0]" stack {"+" Stack}]
-    ["/[0]" registry {"+" Registry}]]
-   [///
-    [encoding
-     [unsigned {"+" U2}]]
-    [type {"+" Type}
-     [category {"+" Method}]]]])
+ [library
+  [lux {"-" Type static has}
+   [abstract
+    [monad {"+" do}]
+    [monoid {"+" Monoid}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]]]
+ [/
+  ["/[0]" limit {"+" Limit}
+   ["/[0]" stack {"+" Stack}]
+   ["/[0]" registry {"+" Registry}]]
+  [///
+   [encoding
+    [unsigned {"+" U2}]]
+   [type {"+" Type}
+    [category {"+" Method}]]]])
 
 (type: .public Environment
   (Record
@@ -53,7 +53,7 @@
 
 (def: .public (stack environment)
   (-> Environment (Try Stack))
-  (case (value@ ..#stack environment)
+  (case (the ..#stack environment)
     {.#Some stack}
     {try.#Success stack}
 
@@ -62,7 +62,7 @@
 
 (def: .public discontinue
   (-> Environment Environment)
-  (with@ ..#stack {.#None}))
+  (.has ..#stack {.#None}))
 
 (exception: .public (mismatched_stacks [expected Stack
                                         actual Stack])
@@ -72,14 +72,14 @@
 
 (def: .public (continue expected environment)
   (-> Stack Environment (Try [Stack Environment]))
-  (case (value@ ..#stack environment)
+  (case (the ..#stack environment)
     {.#Some actual}
     (if (# /stack.equivalence = expected actual)
       {try.#Success [actual environment]}
       (exception.except ..mismatched_stacks [expected actual]))
 
     {.#None}
-    {try.#Success [expected (with@ ..#stack {.#Some expected} environment)]}))
+    {try.#Success [expected (.has ..#stack {.#Some expected} environment)]}))
 
 (def: .public (consumes amount)
   (-> U2 Condition)
@@ -89,7 +89,7 @@
     (do try.monad
       [previous (..stack environment)
        current (/stack.pop amount previous)]
-      (in (with@ ..#stack {.#Some current} environment)))))
+      (in (.has ..#stack {.#Some current} environment)))))
 
 (def: .public (produces amount)
   (-> U2 Condition)
@@ -98,13 +98,13 @@
       [previous (..stack environment)
        current (/stack.push amount previous)
        .let [limit (|> environment
-                       (value@ [..#limit /limit.#stack])
+                       (the [..#limit /limit.#stack])
                        (/stack.max current))]]
       (in (|> environment
-              (with@ ..#stack {.#Some current})
-              (with@ [..#limit /limit.#stack] limit))))))
+              (.has ..#stack {.#Some current})
+              (.has [..#limit /limit.#stack] limit))))))
 
 (def: .public (has registry)
   (-> Registry Condition)
-  (|>> (revised@ [..#limit /limit.#registry] (/registry.has registry))
+  (|>> (revised [..#limit /limit.#registry] (/registry.has registry))
        {try.#Success}))
diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux
index e27137cbc..3d3bb2d8d 100644
--- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux
+++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux {"-" Type static}
-    [abstract
-     [monad {"+" do}]
-     [equivalence {"+" Equivalence}]]
-    [control
-     ["[0]" try {"+" Try}]]
-    [data
-     ["[0]" product]
-     ["[0]" format "_"
-      ["[1]" binary {"+" Writer} ("[1]#[0]" monoid)]]]
-    [math
-     [number
-      ["n" nat]]]]]
-  ["[0]" / "_"
-   ["[1][0]" stack {"+" Stack}]
-   ["[1][0]" registry {"+" Registry}]
-   [////
-    [type {"+" Type}
-     [category {"+" Method}]]]])
+ [library
+  [lux {"-" Type static}
+   [abstract
+    [monad {"+" do}]
+    [equivalence {"+" Equivalence}]]
+   [control
+    ["[0]" try {"+" Try}]]
+   [data
+    ["[0]" product]
+    ["[0]" format "_"
+     ["[1]" binary {"+" Writer} ("[1]#[0]" monoid)]]]
+   [math
+    [number
+     ["n" nat]]]]]
+ ["[0]" / "_"
+  ["[1][0]" stack {"+" Stack}]
+  ["[1][0]" registry {"+" Registry}]
+  [////
+   [type {"+" Type}
+    [category {"+" Method}]]]])
 
 (type: .public Limit
   (Record
@@ -54,6 +54,6 @@
 (def: .public (writer limit)
   (Writer Limit)
   ($_ format#composite
-      (/stack.writer (value@ #stack limit))
-      (/registry.writer (value@ #registry limit))
+      (/stack.writer (the #stack limit))
+      (/registry.writer (the #registry limit))
       ))
diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux
index f2ead2686..4f42ccffc 100644
--- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux
+++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux {"-" Type for static}
-    [abstract
-     ["[0]" equivalence {"+" Equivalence}]]
-    [control
-     ["[0]" try {"+" Try} ("[1]#[0]" functor)]]
-    [data
-     [format
-      [binary {"+" Writer}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]]]
-    [math
-     [number
-      ["n" nat]]]
-    [type
-     abstract]]]
-  ["[0]" ///// "_"
-   [encoding
-    ["[1][0]" unsigned {"+" U1 U2}]]
-   ["[1][0]" type {"+" Type}
-    [category {"+" Method}]
-    ["[1]/[0]" parser]]])
+ [library
+  [lux {"-" Type for static has}
+   [abstract
+    ["[0]" equivalence {"+" Equivalence}]]
+   [control
+    ["[0]" try {"+" Try} ("[1]#[0]" functor)]]
+   [data
+    [format
+     [binary {"+" Writer}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]]]
+   [math
+    [number
+     ["n" nat]]]
+   [type
+    abstract]]]
+ ["[0]" ///// "_"
+  [encoding
+   ["[1][0]" unsigned {"+" U1 U2}]]
+  ["[1][0]" type {"+" Type}
+   [category {"+" Method}]
+   ["[1]/[0]" parser]]])
 
 (type: .public Register
   U1)
diff --git a/stdlib/source/library/lux/target/jvm/class.lux b/stdlib/source/library/lux/target/jvm/class.lux
index 2235046e9..73966259f 100644
--- a/stdlib/source/library/lux/target/jvm/class.lux
+++ b/stdlib/source/library/lux/target/jvm/class.lux
@@ -130,7 +130,7 @@
   (Writer Class)
   (`` ($_ binaryF#composite
           (~~ (template [<writer> <slot>]
-                [(<writer> (value@ <slot> class))]
+                [(<writer> (the <slot> class))]
 
                 [//magic.writer #magic]
                 [//version.writer #minor_version]
@@ -140,7 +140,7 @@
                 [//index.writer #this]
                 [//index.writer #super]))
           (~~ (template [<writer> <slot>]
-                [((binaryF.sequence/16 <writer>) (value@ <slot> class))]
+                [((binaryF.sequence/16 <writer>) (the <slot> class))]
 
                 [//index.writer #interfaces]
                 [//field.writer #fields]
diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux
index 494583650..ab2ef722c 100644
--- a/stdlib/source/library/lux/target/jvm/field.lux
+++ b/stdlib/source/library/lux/target/jvm/field.lux
@@ -52,7 +52,7 @@
   (Writer Field)
   (`` ($_ binaryF#composite
           (~~ (template [<writer> <slot>]
-                [(<writer> (value@ <slot> field))]
+                [(<writer> (the <slot> field))]
 
                 [modifier.writer #modifier]
                 [//index.writer #name]
diff --git a/stdlib/source/library/lux/target/jvm/method.lux b/stdlib/source/library/lux/target/jvm/method.lux
index c5011887a..264e6d475 100644
--- a/stdlib/source/library/lux/target/jvm/method.lux
+++ b/stdlib/source/library/lux/target/jvm/method.lux
@@ -74,7 +74,7 @@
                                    (function (_ _) {try.#Failure error}))
                      [environment exceptions instruction output] (//bytecode.resolve environment code)
                      .let [bytecode (|> instruction //instruction.result format.instance)]
-                     @code (//attribute.code [//code.#limit (value@ //environment.#limit environment)
+                     @code (//attribute.code [//code.#limit (the //environment.#limit environment)
                                               //code.#code bytecode
                                               //code.#exception_table exceptions
                                               //code.#attributes (sequence.sequence)])]
@@ -100,7 +100,7 @@
   (Writer Method)
   (`` ($_ format#composite
           (~~ (template [<writer> <slot>]
-                [(<writer> (value@ <slot> field))]
+                [(<writer> (the <slot> field))]
 
                 [//modifier.writer #modifier]
                 [//index.writer #name]
diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux
index c99893692..ed2e1087f 100644
--- a/stdlib/source/library/lux/target/lua.lux
+++ b/stdlib/source/library/lux/target/lua.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux {"-" Location Code Label int if function or and not let ^ local comment}
+  [lux {"-" Location Code Label int if function or and not let ^ local comment the}
    ["@" target]
    [abstract
     [equivalence {"+" Equivalence}]
diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux
index f02eafd89..b23ac1b98 100644
--- a/stdlib/source/library/lux/target/php.lux
+++ b/stdlib/source/library/lux/target/php.lux
@@ -1,30 +1,30 @@
 (.using
-  [library
-   [lux {"-" Location Code Global Label static int if cond or and not comment for try global}
-    ["@" target]
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]
-     ["[0]" enum]]
-    [control
-     [pipe {"+" case> cond> new>}]
-     [parser
-      ["<[0]>" code]]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]]]
-    [macro
-     [syntax {"+" syntax:}]
-     ["[0]" template]
-     ["[0]" code]]
-    [math
-     [number
-      ["n" nat]
-      ["f" frac]]]
-    [type
-     abstract]]])
+ [library
+  [lux {"-" Location Code Global Label static int if cond or and not comment for try global the}
+   ["@" target]
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]
+    ["[0]" enum]]
+   [control
+    [pipe {"+" case> cond> new>}]
+    [parser
+     ["<[0]>" code]]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]]]
+   [macro
+    [syntax {"+" syntax:}]
+    ["[0]" template]
+    ["[0]" code]]
+   [math
+    [number
+     ["n" nat]
+     ["f" frac]]]
+   [type
+    abstract]]])
 
 (def: input_separator ", ")
 (def: statement_suffix ";")
@@ -486,10 +486,10 @@
 
   (def: (catch except)
     (-> Except Text)
-    (let [declaration (format (:representation (value@ #class except))
-                              " " (:representation (value@ #exception except)))]
+    (let [declaration (format (:representation (.the #class except))
+                              " " (:representation (.the #exception except)))]
       (format "catch" (..group declaration) " "
-              (..block (:representation (value@ #handler except))))))
+              (..block (:representation (.the #handler except))))))
   
   (def: .public (try body! excepts)
     (-> Statement (List Except) Statement)
diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux
index bd3d68711..237baadd7 100644
--- a/stdlib/source/library/lux/target/python.lux
+++ b/stdlib/source/library/lux/target/python.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux {"-" Location Code not or and list if int comment exec try}
+  [lux {"-" Location Code not or and list if int comment exec try the}
    ["@" target]
    ["[0]" ffi]
    [abstract
diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux
index c197f6a64..b965a3296 100644
--- a/stdlib/source/library/lux/target/ruby.lux
+++ b/stdlib/source/library/lux/target/ruby.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux {"-" Location Code static int if function or and not comment local global symbol}
+  [lux {"-" Location Code static int if function or and not comment local global symbol the}
    ["@" target]
    [abstract
     [equivalence {"+" Equivalence}]
@@ -233,11 +233,11 @@
 
   (def: (block it)
     (-> Block Text)
-    (|> (format (|> (value@ #parameters it)
+    (|> (format (|> (.the #parameters it)
                     (list#each (|>> :representation))
                     (text.interposed ..input_separator)
                     (text.enclosed' "|"))
-                (..nested (:representation (value@ #body it))))
+                (..nested (:representation (.the #body it))))
         (text.enclosed ["{" "}"])))
 
   (def: .public (apply/* arguments block func)
diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux
index f1ad798e7..5a90ecbe4 100644
--- a/stdlib/source/library/lux/target/scheme.lux
+++ b/stdlib/source/library/lux/target/scheme.lux
@@ -1,25 +1,25 @@
 (.using
-  [library
-   [lux {"-" Code int or and if cond let symbol}
-    ["@" target]
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]]
-    [control
-     [pipe {"+" new> cond> case>}]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor monoid)]]]
-    [macro
-     ["[0]" template]]
-    [math
-     [number
-      ["n" nat]
-      ["f" frac]]]
-    [type
-     abstract]]])
+ [library
+  [lux {"-" Code int or and if cond let symbol}
+   ["@" target]
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]]
+   [control
+    [pipe {"+" new> cond> case>}]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor monoid)]]]
+   [macro
+    ["[0]" template]]
+   [math
+    [number
+     ["n" nat]
+     ["f" frac]]]
+   [type
+    abstract]]])
 
 ... Added the carriage return for better Windows compatibility.
 (def: \n+
@@ -345,7 +345,7 @@
     (-> Var Arguments Expression Computation)
     (..form (list (..var "define")
                   (|> arguments
-                      (revised@ #mandatory (|>> {.#Item name}))
+                      (revised #mandatory (|>> {.#Item name}))
                       ..arguments)
                   body)))
 
diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux
index d9555ec44..ad817a70b 100644
--- a/stdlib/source/library/lux/test.lux
+++ b/stdlib/source/library/lux/test.lux
@@ -51,12 +51,12 @@
 
 (def: (total parameter subject)
   (-> Tally Tally Tally)
-  [#successes (n.+ (value@ #successes parameter) (value@ #successes subject))
-   #failures (n.+ (value@ #failures parameter) (value@ #failures subject))
-   #expected_coverage (set.union (value@ #expected_coverage parameter)
-                                 (value@ #expected_coverage subject))
-   #actual_coverage (set.union (value@ #actual_coverage parameter)
-                               (value@ #actual_coverage subject))])
+  [#successes (n.+ (the #successes parameter) (the #successes subject))
+   #failures (n.+ (the #failures parameter) (the #failures subject))
+   #expected_coverage (set.union (the #expected_coverage parameter)
+                                 (the #expected_coverage subject))
+   #actual_coverage (set.union (the #actual_coverage parameter)
+                               (the #actual_coverage subject))])
 
 (def: start
   Tally
@@ -68,7 +68,7 @@
 (template [<name> <category>]
   [(def: <name>
      Tally
-     (revised@ <category> .++ ..start))]
+     (revised <category> .++ ..start))]
 
   [success_tally #successes]
   [failure_tally #failures]
@@ -157,7 +157,7 @@
 
 (def: failed?
   (-> Tally Bit)
-  (|>> (value@ #failures) (n.> 0)))
+  (|>> (the #failures) (n.> 0)))
 
 (def: (times_failure seed documentation)
   (-> Seed Text Text)
@@ -187,20 +187,20 @@
 
 (def: (description duration tally)
   (-> Duration Tally Text)
-  (let [successes (value@ #successes tally)
-        failures (value@ #failures tally)
-        missing (set.difference (value@ #actual_coverage tally)
-                                (value@ #expected_coverage tally))
-        unexpected (set.difference (value@ #expected_coverage tally)
-                                   (value@ #actual_coverage tally))
+  (let [successes (the #successes tally)
+        failures (the #failures tally)
+        missing (set.difference (the #actual_coverage tally)
+                                (the #expected_coverage tally))
+        unexpected (set.difference (the #expected_coverage tally)
+                                   (the #actual_coverage tally))
         report (: (-> (Set Symbol) Text)
                   (|>> set.list
                        (list.sorted (# symbol.order <))
                        (exception.listing %.symbol)))
-        expected_definitions_to_cover (set.size (value@ #expected_coverage tally))
+        expected_definitions_to_cover (set.size (the #expected_coverage tally))
         unexpected_definitions_covered (set.size unexpected)
         actual_definitions_covered (n.- unexpected_definitions_covered
-                                        (set.size (value@ #actual_coverage tally)))
+                                        (set.size (the #actual_coverage tally)))
         coverage (case expected_definitions_to_cover
                    0 "N/A"
                    expected (let [missing_ratio (f./ (n.frac expected)
@@ -260,7 +260,7 @@
                        (console.write_line report console))]
                <else>))]
     (async.future (# program.default exit
-                     (case (value@ #failures tally)
+                     (case (the #failures tally)
                        0 ..success_exit_code
                        _ ..failure_exit_code)))))
 
@@ -280,7 +280,7 @@
         coverage (set.of_list symbol.hash coverage)]
     (|> (..assertion message condition)
         (async#each (function (_ [tally documentation])
-                      [(revised@ #actual_coverage (set.union coverage) tally)
+                      [(revised #actual_coverage (set.union coverage) tally)
                        documentation])))))
 
 (def: (|cover| coverage condition)
@@ -295,7 +295,7 @@
                     (text.interposed ..definition_separator))
         coverage (set.of_list symbol.hash coverage)]
     (random#each (async#each (function (_ [tally documentation])
-                               [(revised@ #actual_coverage (set.union coverage) tally)
+                               [(revised #actual_coverage (set.union coverage) tally)
                                 documentation]))
                  (..context' context test))))
 
@@ -362,7 +362,7 @@
   (let [coverage (..coverage module coverage)]
     (|> (..context' module test)
         (random#each (async#each (function (_ [tally documentation])
-                                   [(revised@ #expected_coverage (set.union coverage) tally)
+                                   [(revised #expected_coverage (set.union coverage) tally)
                                     (|> documentation
                                         (text.replaced (format ..clean_up_marker module symbol.separator) "")
                                         (text.replaced ..clean_up_marker ""))]))))))
diff --git a/stdlib/source/library/lux/time.lux b/stdlib/source/library/lux/time.lux
index 9a5b3ce93..debab4ab4 100644
--- a/stdlib/source/library/lux/time.lux
+++ b/stdlib/source/library/lux/time.lux
@@ -1,27 +1,27 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [order {"+" Order}]
-     [enum {"+" Enum}]
-     [codec {"+" Codec}]
-     [monad {"+" Monad do}]]
-    [control
-     [pipe {"+" case>}]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser
-      ["<[0]>" text {"+" Parser}]]]
-    [data
-     ["[0]" text ("[1]#[0]" monoid)]]
-    [math
-     [number
-      ["n" nat ("[1]#[0]" decimal)]]]
-    [type
-     abstract]]]
-  [/
-   ["[0]" duration {"+" Duration}]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [order {"+" Order}]
+    [enum {"+" Enum}]
+    [codec {"+" Codec}]
+    [monad {"+" Monad do}]]
+   [control
+    [pipe {"+" case>}]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser
+     ["<[0]>" text {"+" Parser}]]]
+   [data
+    ["[0]" text ("[1]#[0]" monoid)]]
+   [math
+    [number
+     ["n" nat ("[1]#[0]" decimal)]]]
+   [type
+    abstract]]]
+ [/
+  ["[0]" duration {"+" Duration}]])
 
 (template [<name> <singular> <plural>]
   [(def: .public <name>
@@ -189,10 +189,10 @@
 (def: .public (time clock)
   (-> Clock (Try Time))
   (|> ($_ duration.merged
-          (duration.up (value@ #hour clock) duration.hour)
-          (duration.up (value@ #minute clock) duration.minute)
-          (duration.up (value@ #second clock) duration.second)
-          (duration.of_millis (.int (value@ #milli_second clock))))
+          (duration.up (the #hour clock) duration.hour)
+          (duration.up (the #minute clock) duration.minute)
+          (duration.up (the #second clock) duration.second)
+          (duration.of_millis (.int (the #milli_second clock))))
       duration.millis
       .nat
       ..of_millis))
diff --git a/stdlib/source/library/lux/time/date.lux b/stdlib/source/library/lux/time/date.lux
index 6fcd9a73b..e32440153 100644
--- a/stdlib/source/library/lux/time/date.lux
+++ b/stdlib/source/library/lux/time/date.lux
@@ -1,32 +1,32 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [order {"+" Order}]
-     [enum {"+" Enum}]
-     [codec {"+" Codec}]
-     [monad {"+" do}]]
-    [control
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser
-      ["<[0]>" text {"+" Parser}]]]
-    [data
-     ["[0]" text ("[1]#[0]" monoid)]
-     [collection
-      ["[0]" list ("[1]#[0]" mix)]
-      ["[0]" dictionary {"+" Dictionary}]]]
-    [math
-     [number
-      ["n" nat ("[1]#[0]" decimal)]
-      ["i" int]]]
-    [type
-     abstract]]]
-  ["[0]" // "_"
-   ["[1][0]" year {"+" Year}]
-   ["[1][0]" month {"+" Month}]])
+ [library
+  [lux "*"
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [order {"+" Order}]
+    [enum {"+" Enum}]
+    [codec {"+" Codec}]
+    [monad {"+" do}]]
+   [control
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser
+     ["<[0]>" text {"+" Parser}]]]
+   [data
+    ["[0]" text ("[1]#[0]" monoid)]
+    [collection
+     ["[0]" list ("[1]#[0]" mix)]
+     ["[0]" dictionary {"+" Dictionary}]]]
+   [math
+    [number
+     ["n" nat ("[1]#[0]" decimal)]
+     ["i" int]]]
+   [type
+    abstract]]]
+ ["[0]" // "_"
+  ["[1][0]" year {"+" Year}]
+  ["[1][0]" month {"+" Month}]])
 
 (def: month_by_number
   (Dictionary Nat Month)
@@ -95,7 +95,7 @@
   (template [<name> <type> <field>]
     [(def: .public <name>
        (-> Date <type>)
-       (|>> :representation (value@ <field>)))]
+       (|>> :representation (the <field>)))]
 
     [year Year #year]
     [month Month #month]
@@ -109,13 +109,13 @@
       (let [reference (:representation reference)
             sample (:representation sample)]
         (and (# //year.equivalence =
-                (value@ #year reference)
-                (value@ #year sample))
+                (the #year reference)
+                (the #year sample))
              (# //month.equivalence =
-                (value@ #month reference)
-                (value@ #month sample))
-             (n.= (value@ #day reference)
-                  (value@ #day sample))))))
+                (the #month reference)
+                (the #month sample))
+             (n.= (the #day reference)
+                  (the #day sample))))))
 
   (implementation: .public order
     (Order Date)
@@ -126,19 +126,19 @@
       (let [reference (:representation reference)
             sample (:representation sample)]
         (or (# //year.order <
-               (value@ #year reference)
-               (value@ #year sample))
+               (the #year reference)
+               (the #year sample))
             (and (# //year.equivalence =
-                    (value@ #year reference)
-                    (value@ #year sample))
+                    (the #year reference)
+                    (the #year sample))
                  (or (# //month.order <
-                        (value@ #month reference)
-                        (value@ #month sample))
+                        (the #month reference)
+                        (the #month sample))
                      (and (# //month.order =
-                             (value@ #month reference)
-                             (value@ #month sample))
-                          (n.< (value@ #day reference)
-                               (value@ #day sample)))))))))
+                             (the #month reference)
+                             (the #month sample))
+                          (n.< (the #day reference)
+                               (the #day sample)))))))))
   )
 
 (def: section_parser
diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux
index 7f815abf9..48a1fb475 100644
--- a/stdlib/source/library/lux/tool/compiler/default/init.lux
+++ b/stdlib/source/library/lux/tool/compiler/default/init.lux
@@ -110,8 +110,8 @@
       {.#Right [source' output]}
       (let [[location _] output]
         {try.#Success [[bundle (|> compiler
-                                   (with@ .#source source')
-                                   (with@ .#location location))]
+                                   (has .#source source')
+                                   (has .#location location))]
                        [source' output]]}))))
 
 (type: (Operation a)
@@ -128,13 +128,13 @@
         (///directive.Operation anchor expression directive
                                 [Source (Payload directive)])))
   (do ///phase.monad
-    [.let [module (value@ ///.#module input)]
+    [.let [module (the ///.#module input)]
      _ (///directive.set_current_module module)]
     (///directive.lifted_analysis
      (do [! ///phase.monad]
        [_ (moduleA.create hash module)
         _ (monad.each ! moduleA.import dependencies)
-        .let [source (///analysis.source (value@ ///.#module input) (value@ ///.#code input))]
+        .let [source (///analysis.source (the ///.#module input) (the ///.#code input))]
         _ (///analysis.set_source_code source)]
        (in [source [///generation.empty_buffer
                     registry.empty]])))))
@@ -223,13 +223,13 @@
 (def: (default_dependencies prelude input)
   (-> descriptor.Module ///.Input (List descriptor.Module))
   (list& descriptor.runtime
-         (if (text#= prelude (value@ ///.#module input))
+         (if (text#= prelude (the ///.#module input))
            (list)
            (list prelude))))
 
 (def: module_aliases
   (-> .Module Aliases)
-  (|>> (value@ .#module_aliases) (dictionary.of_list text.hash)))
+  (|>> (the .#module_aliases) (dictionary.of_list text.hash)))
 
 (def: .public (compiler wrapper expander prelude write_directive)
   (All (_ anchor expression directive)
@@ -241,10 +241,10 @@
         [///.#dependencies dependencies
          ///.#process (function (_ state archive)
                         (do [! try.monad]
-                          [.let [hash (text#hash (value@ ///.#code input))]
+                          [.let [hash (text#hash (the ///.#code input))]
                            [state [source buffer]] (<| (///phase.result' state)
                                                        (..begin dependencies hash input))
-                           .let [module (value@ ///.#module input)]]
+                           .let [module (the ///.#module input)]]
                           (loop [iteration (<| (///phase.result' state)
                                                (..iteration wrapper archive expander module source buffer ///syntax.no_aliases))]
                             (do !
@@ -255,7 +255,7 @@
                                   [[state [analysis_module [final_buffer final_registry]]] (///phase.result' state (..end module))
                                    .let [descriptor [descriptor.#hash hash
                                                      descriptor.#name module
-                                                     descriptor.#file (value@ ///.#file input)
+                                                     descriptor.#file (the ///.#file input)
                                                      descriptor.#references (set.of_list text.hash dependencies)
                                                      descriptor.#state {.#Compiled}]]]
                                   (in [state
@@ -271,7 +271,7 @@
                                 (let [[temporary_buffer temporary_registry] temporary_payload]
                                   (in [state
                                        {.#Left [///.#dependencies (|> requirements
-                                                                      (value@ ///directive.#imports)
+                                                                      (the ///directive.#imports)
                                                                       (list#each product.left))
                                                 ///.#process (function (_ state archive)
                                                                (again (<| (///phase.result' state)
@@ -285,7 +285,7 @@
                                                                              _ (///directive.lifted_generation
                                                                                 (///generation.set_registry temporary_registry))
                                                                              _ (|> requirements
-                                                                                   (value@ ///directive.#referrals)
+                                                                                   (the ///directive.#referrals)
                                                                                    (monad.each ! (execute! archive)))
                                                                              temporary_payload (..get_current_payload temporary_payload)]
                                                                             (..iteration wrapper archive expander module source temporary_payload (..module_aliases analysis_module))))))]}]))
diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux
index 6aa9f8b77..1bccf29e7 100644
--- a/stdlib/source/library/lux/tool/compiler/default/platform.lux
+++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux
@@ -112,7 +112,7 @@
       (All (_ <type_vars> document)
         (-> context.Context <Platform> module.ID (Key document) (Writer document) (archive.Entry document)
             (Async (Try Any))))
-      (let [system (value@ #&file_system platform)
+      (let [system (the #&file_system platform)
             write_artifact! (: (-> [artifact.ID (Maybe Text) Binary] (Action Any))
                                (function (_ [artifact_id custom content])
                                  (cache/artifact.cache! system context @module artifact_id content)))]
@@ -120,22 +120,22 @@
           [_ (: (Async (Try Any))
                 (cache/module.enable! async.monad system context @module))
            _ (for [@.python (|> entry
-                                (value@ archive.#output)
+                                (the archive.#output)
                                 sequence.list
                                 (list.sub 128)
                                 (monad.each ! (monad.each ! write_artifact!))
                                 (: (Action (List (List Any)))))]
                   (|> entry
-                      (value@ archive.#output)
+                      (the archive.#output)
                       sequence.list
                       (monad.each ..monad write_artifact!)
                       (: (Action (List Any)))))
            document (# async.monad in
-                       (document.marked? key (value@ [archive.#module module.#document] entry)))]
+                       (document.marked? key (the [archive.#module module.#document] entry)))]
           (|> [(|> entry
-                   (value@ archive.#module)
-                   (with@ module.#document document))
-               (value@ archive.#registry entry)]
+                   (the archive.#module)
+                   (has module.#document document))
+               (the archive.#registry entry)]
               (_.result (..writer format))
               (cache/module.cache! system context @module)))))
 
@@ -151,7 +151,7 @@
         (-> <Platform> (///generation.Operation <type_vars> [Registry Output])))
       (do ///phase.monad
         [_ ..initialize_buffer!]
-        (value@ #runtime platform)))
+        (the #runtime platform)))
 
     (def: runtime_descriptor
       Descriptor
@@ -226,7 +226,7 @@
       (All (_ <type_vars>)
         (-> Archive <Platform> <State+> (Try [<State+> ///phase.Wrapper])))
       (|> archive
-          ((value@ #phase_wrapper platform))
+          ((the #phase_wrapper platform))
           ///directive.lifted_generation
           (///phase.result' state)))
 
@@ -262,17 +262,17 @@
             Import (List _io.Context) Configuration
             (Async (Try [<State+> Archive ///phase.Wrapper]))))
       (do [! (try.with async.monad)]
-        [.let [state (//init.state (value@ context.#host context)
+        [.let [state (//init.state (the context.#host context)
                                    module
                                    compilation_configuration
                                    expander
                                    host_analysis
-                                   (value@ #host platform)
-                                   (value@ #phase platform)
+                                   (the #host platform)
+                                   (the #phase platform)
                                    generation_bundle)]
          _ (: (Async (Try Any))
-              (cache.enable! async.monad (value@ #&file_system platform) context))
-         [archive analysis_state bundles] (ioW.thaw (list) compilation_configuration (value@ #host platform) (value@ #&file_system platform) context import compilation_sources)
+              (cache.enable! async.monad (the #&file_system platform) context))
+         [archive analysis_state bundles] (ioW.thaw (list) compilation_configuration (the #host platform) (the #&file_system platform) context import compilation_sources)
          .let [with_missing_extensions
                (: (All (_ <type_vars>)
                     (-> <Platform> (Program expression directive) <State+>
@@ -306,11 +306,11 @@
     (def: (module_compilation_log module)
       (All (_ <type_vars>)
         (-> descriptor.Module <State+> Text))
-      (|>> (value@ [extension.#state
-                    ///directive.#generation
-                    ///directive.#state
-                    extension.#state
-                    ///generation.#log])
+      (|>> (the [extension.#state
+                 ///directive.#generation
+                 ///directive.#state
+                 extension.#state
+                 ///generation.#log])
            (sequence#mix (function (_ right left)
                            (format left ..compilation_log_separator right))
                          module)))
@@ -318,12 +318,12 @@
     (def: with_reset_log
       (All (_ <type_vars>)
         (-> <State+> <State+>))
-      (with@ [extension.#state
-              ///directive.#generation
-              ///directive.#state
-              extension.#state
-              ///generation.#log]
-             sequence.empty))
+      (has [extension.#state
+            ///directive.#generation
+            ///directive.#state
+            extension.#state
+            ///generation.#log]
+           sequence.empty))
 
     (def: empty
       (Set descriptor.Module)
@@ -351,8 +351,8 @@
                                            lens
                                            (dictionary.value module)
                                            (maybe.else ..empty))))
-            transitive_depends_on (transitive_dependency (value@ #depends_on) import)
-            transitive_depended_by (transitive_dependency (value@ #depended_by) module)
+            transitive_depends_on (transitive_dependency (the #depends_on) import)
+            transitive_depended_by (transitive_dependency (the #depended_by) module)
             update_dependence (: (-> [descriptor.Module (Set descriptor.Module)] [descriptor.Module (Set descriptor.Module)]
                                      (-> Mapping Mapping))
                                  (function (_ [source forward] [target backward])
@@ -366,14 +366,14 @@
                                                  with_dependence+transitives
                                                  (set.list backward))))))]
         (|> dependence
-            (revised@ #depends_on
-                      (update_dependence
-                       [module transitive_depends_on]
-                       [import transitive_depended_by]))
-            (revised@ #depended_by
-                      ((function.flipped update_dependence)
-                       [module transitive_depends_on]
-                       [import transitive_depended_by])))))
+            (revised #depends_on
+                     (update_dependence
+                      [module transitive_depends_on]
+                      [import transitive_depended_by]))
+            (revised #depended_by
+                     ((function.flipped update_dependence)
+                      [module transitive_depends_on]
+                      [import transitive_depended_by])))))
 
     (def: (circular_dependency? module import dependence)
       (-> descriptor.Module descriptor.Module Dependence Bit)
@@ -384,8 +384,8 @@
                                                (dictionary.value from)
                                                (maybe.else ..empty))]
                                (set.member? targets to))))]
-        (or (dependence? import (value@ #depends_on) module)
-            (dependence? module (value@ #depended_by) import))))
+        (or (dependence? import (the #depends_on) module)
+            (dependence? module (the #depended_by) import))))
 
     (exception: .public (module_cannot_import_itself [module descriptor.Module])
       (exception.report
@@ -444,8 +444,8 @@
          (All (_ <type_vars>)
            (-> <State+> <State+> (Try <State+>)))
          (do try.monad
-           [inherited (with_extensions (value@ <path> from) (value@ <path> state))]
-           (in (with@ <path> inherited state))))]
+           [inherited (with_extensions (the <path> from) (the <path> state))]
+           (in (has <path> inherited state))))]
 
       [with_analysis_extensions [extension.#state ///directive.#analysis ///directive.#state extension.#bundle]]
       [with_synthesis_extensions [extension.#state ///directive.#synthesis ///directive.#state extension.#bundle]]
@@ -593,7 +593,7 @@
                                    (do !
                                      [entry (archive.find module archive)
                                       lux_module (|> entry
-                                                     (value@ [archive.#module module.#document])
+                                                     (the [archive.#module module.#document])
                                                      (document.content $.key))]
                                      (in [module lux_module])))
                                (archive.archived archive))
@@ -602,21 +602,21 @@
                                (set.of_list text.hash))
                  with_modules (: (All (_ <type_vars>)
                                    (-> <State+> <State+>))
-                                 (revised@ [extension.#state
-                                            ///directive.#analysis
-                                            ///directive.#state
-                                            extension.#state]
-                                           (: (All (_ a) (-> a a))
-                                              (function (_ analysis_state)
-                                                (|> analysis_state
-                                                    (:as .Lux)
-                                                    (revised@ .#modules (function (_ current)
-                                                                          (list#composite (list.only (|>> product.left
-                                                                                                          (set.member? additions)
-                                                                                                          not)
-                                                                                                     current)
-                                                                                          modules)))
-                                                    :expected)))))]
+                                 (revised [extension.#state
+                                           ///directive.#analysis
+                                           ///directive.#state
+                                           extension.#state]
+                                          (: (All (_ a) (-> a a))
+                                             (function (_ analysis_state)
+                                               (|> analysis_state
+                                                   (:as .Lux)
+                                                   (revised .#modules (function (_ current)
+                                                                        (list#composite (list.only (|>> product.left
+                                                                                                        (set.member? additions)
+                                                                                                        not)
+                                                                                                   current)
+                                                                                        modules)))
+                                                   :expected)))))]
            state (monad.mix ! with_all_extensions state extended_states)]
           (in (with_modules state))))
 
@@ -687,7 +687,7 @@
           (-> descriptor.Module Lux_Context (///.Compilation <State+> .Module Any)
               (Try [<State+> (Either (///.Compilation <State+> .Module Any)
                                      (archive.Entry Any))])))
-        ((value@ ///.#process compilation)
+        ((the ///.#process compilation)
          ... TODO: The "///directive.set_current_module" below shouldn't be necessary. Remove it ASAP.
          ... TODO: The context shouldn't need to be re-set either.
          (|> (///directive.set_current_module module)
@@ -700,7 +700,7 @@
         (All (_ <type_vars>)
           (-> ///phase.Wrapper Expander <Platform>
               (///.Compiler <State+> .Module Any)))
-        (let [instancer (//init.compiler phase_wrapper expander syntax.prelude (value@ #write platform))]
+        (let [instancer (//init.compiler phase_wrapper expander syntax.prelude (the #write platform))]
           (instancer $.key (list))))
 
       (def: (custom_compiler import context platform compilation_sources compiler
@@ -716,10 +716,10 @@
                  all_dependencies (: (Set descriptor.Module)
                                      (set.of_list text.hash (list)))]
             (do [! (try.with async.monad)]
-              [.let [new_dependencies (value@ ///.#dependencies compilation)
+              [.let [new_dependencies (the ///.#dependencies compilation)
                      [all_dependencies duplicates] (with_new_dependencies new_dependencies all_dependencies)]
                [archive _] (any|after_imports customs import! module duplicates new_dependencies archive)]
-              (case ((value@ ///.#process compilation) state archive)
+              (case ((the ///.#process compilation) state archive)
                 {try.#Success [state more|done]}
                 (case more|done
                   {.#Left more}
@@ -734,7 +734,7 @@
 
                   {.#Right entry}
                   (do !
-                    [.let [entry (with@ [archive.#module module.#descriptor descriptor.#references] all_dependencies entry)]
+                    [.let [entry (has [archive.#module module.#descriptor descriptor.#references] all_dependencies entry)]
                      _ (..cache_module context platform @module custom_key custom_format entry)]
                     (async#in (do try.monad
                                 [archive (archive.has module entry archive)]
@@ -742,7 +742,7 @@
 
                 {try.#Failure error}
                 (do !
-                  [_ (cache/archive.cache! (value@ #&file_system platform) context archive)]
+                  [_ (cache/archive.cache! (the #&file_system platform) context archive)]
                   (async#in {try.#Failure error})))))))
 
       (def: (lux_compiler import context platform compilation_sources compiler compilation)
@@ -756,7 +756,7 @@
                  all_dependencies (: (Set descriptor.Module)
                                      (set.of_list text.hash (list)))]
             (do [! (try.with async.monad)]
-              [.let [new_dependencies (value@ ///.#dependencies compilation)
+              [.let [new_dependencies (the ///.#dependencies compilation)
                      [all_dependencies duplicates] (with_new_dependencies new_dependencies all_dependencies)]
                [archive state] (lux|after_imports customs import! module duplicates new_dependencies [archive state])]
               (case (next_compilation module [archive state] compilation)
@@ -783,7 +783,7 @@
                                         {.#Some console}
                                         (console.write_line report console))]
                                 <else>)))
-                     .let [entry (with@ [archive.#module module.#descriptor descriptor.#references] all_dependencies entry)]
+                     .let [entry (has [archive.#module module.#descriptor descriptor.#references] all_dependencies entry)]
                      _ (..cache_module context platform @module $.key $.writer (:as (archive.Entry .Module) entry))]
                     (async#in (do try.monad
                                 [archive (archive.has module entry archive)]
@@ -792,7 +792,7 @@
 
                 {try.#Failure error}
                 (do !
-                  [_ (cache/archive.cache! (value@ #&file_system platform) context archive)]
+                  [_ (cache/archive.cache! (the #&file_system platform) context archive)]
                   (async#in {try.#Failure error})))))))
 
       (for [@.old (as_is (def: Fake_State
@@ -814,11 +814,11 @@
               Lux_Compiler))
         (function (_ all_customs importer import! @module [archive lux_state] module)
           (do [! (try.with async.monad)]
-            [input (io.read (value@ #&file_system platform)
+            [input (io.read (the #&file_system platform)
                             importer
                             import
                             compilation_sources
-                            (value@ context.#host_module_extension context)
+                            (the context.#host_module_extension context)
                             module)]
             (loop [customs (for [@.old (:as (List (///.Custom Fake_State Fake_Document Fake_Object))
                                             all_customs)]
@@ -854,22 +854,22 @@
       (def: (custom import! it)
         (All (_ <type_vars>)
           (-> Lux_Importer compiler.Compiler (Async (Try [Lux_Context (List Text) Any]))))
-        (let [/#definition (value@ compiler.#definition it)
+        (let [/#definition (the compiler.#definition it)
               [/#module /#name] /#definition]
           (do ..monad
             [context (import! (list) descriptor.runtime /#module)
              .let [[archive state] context
-                   meta_state (value@ [extension.#state
-                                       ///directive.#analysis
-                                       ///directive.#state
-                                       extension.#state]
-                                      state)]
+                   meta_state (the [extension.#state
+                                    ///directive.#analysis
+                                    ///directive.#state
+                                    extension.#state]
+                                   state)]
              [_ /#type /#value] (|> /#definition
                                     meta.export
                                     (meta.result meta_state)
                                     async#in)]
             (async#in (if (check.subsumes? ..Custom /#type)
-                        {try.#Success [context (value@ compiler.#parameters it) /#value]}
+                        {try.#Success [context (the compiler.#parameters it) /#value]}
                         (exception.except ..invalid_custom_compiler [/#definition /#type]))))))
 
       (def: .public (compile lux_compiler phase_wrapper import file_context expander platform compilation context)
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux
index 650842124..1828747ab 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux
@@ -252,10 +252,10 @@
 (def: .public (with_source_code source action)
   (All (_ a) (-> Source (Operation a) (Operation a)))
   (function (_ [bundle state])
-    (let [old_source (value@ .#source state)]
-      (.case (action [bundle (with@ .#source source state)])
+    (let [old_source (the .#source state)]
+      (.case (action [bundle (has .#source source state)])
         {try.#Success [[bundle' state'] output]}
-        {try.#Success [[bundle' (with@ .#source old_source state')]
+        {try.#Success [[bundle' (has .#source old_source state')]
                        output]}
 
         failure
@@ -263,8 +263,8 @@
 
 (def: .public (with_current_module name)
   (All (_ a) (-> Text (Operation a) (Operation a)))
-  (extension.localized (value@ .#current_module)
-                       (with@ .#current_module)
+  (extension.localized (the .#current_module)
+                       (has .#current_module)
                        (function.constant {.#Some name})))
 
 (def: .public (with_location location action)
@@ -272,10 +272,10 @@
   (if (text#= "" (product.left location))
     action
     (function (_ [bundle state])
-      (let [old_location (value@ .#location state)]
-        (.case (action [bundle (with@ .#location location state)])
+      (let [old_location (the .#location state)]
+        (.case (action [bundle (has .#location location state)])
           {try.#Success [[bundle' state'] output]}
-          {try.#Success [[bundle' (with@ .#location old_location state')]
+          {try.#Success [[bundle' (has .#location old_location state')]
                          output]}
 
           failure
@@ -289,14 +289,14 @@
 (def: .public (failure error)
   (-> Text Operation)
   (function (_ [bundle state])
-    {try.#Failure (located (value@ .#location state) error)}))
+    {try.#Failure (located (the .#location state) error)}))
 
 (def: .public (of_try it)
   (All (_ a) (-> (Try a) (Operation a)))
   (function (_ [bundle state])
     (.case it
       {try.#Failure error}
-      {try.#Failure (located (value@ .#location state) error)}
+      {try.#Failure (located (the .#location state) error)}
 
       {try.#Success it}
       {try.#Success [[bundle state] it]})))
@@ -318,7 +318,7 @@
              (action bundle,state))
       {try.#Failure error}
       (let [[bundle state] bundle,state]
-        {try.#Failure (located (value@ .#location state) error)})
+        {try.#Failure (located (the .#location state) error)})
 
       success
       success)))
@@ -332,7 +332,7 @@
 (template [<name> <type> <field> <value>]
   [(def: .public (<name> value)
      (-> <type> (Operation Any))
-     (extension.update (with@ <field> <value>)))]
+     (extension.update (has <field> <value>)))]
 
   [set_source_code    Source   .#source         value]
   [set_current_module Text     .#current_module {.#Some value}]
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux
index a3084664d..39fcf63e7 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux
@@ -83,13 +83,13 @@
    (do ///.monad
      [self_name meta.current_module_name]
      (function (_ state)
-       {try.#Success [(revised@ .#modules
-                                (plist.revised self_name (revised@ .#imports (function (_ current)
-                                                                               (if (list.any? (text#= module)
-                                                                                              current)
-                                                                                 current
-                                                                                 {.#Item module current}))))
-                                state)
+       {try.#Success [(revised .#modules
+                               (plist.revised self_name (revised .#imports (function (_ current)
+                                                                             (if (list.any? (text#= module)
+                                                                                            current)
+                                                                               current
+                                                                               {.#Item module current}))))
+                               state)
                       []]}))))
 
 (def: .public (alias alias module)
@@ -98,10 +98,10 @@
    (do ///.monad
      [self_name meta.current_module_name]
      (function (_ state)
-       {try.#Success [(revised@ .#modules
-                                (plist.revised self_name (revised@ .#module_aliases (: (-> (List [Text Text]) (List [Text Text]))
-                                                                                       (|>> {.#Item [alias module]}))))
-                                state)
+       {try.#Success [(revised .#modules
+                               (plist.revised self_name (revised .#module_aliases (: (-> (List [Text Text]) (List [Text Text]))
+                                                                                     (|>> {.#Item [alias module]}))))
+                               state)
                       []]}))))
 
 (def: .public (exists? module)
@@ -109,7 +109,7 @@
   (///extension.lifted
    (function (_ state)
      (|> state
-         (value@ .#modules)
+         (the .#modules)
          (plist.value module)
          (case> {.#Some _} #1 {.#None} #0)
          [state] {try.#Success}))))
@@ -121,15 +121,15 @@
      [self_name meta.current_module_name
       self meta.current_module]
      (function (_ state)
-       (case (plist.value name (value@ .#definitions self))
+       (case (plist.value name (the .#definitions self))
          {.#None}
-         {try.#Success [(revised@ .#modules
-                                  (plist.has self_name
-                                             (revised@ .#definitions
-                                                       (: (-> (List [Text Global]) (List [Text Global]))
-                                                          (|>> {.#Item [name definition]}))
-                                                       self))
-                                  state)
+         {try.#Success [(revised .#modules
+                                 (plist.has self_name
+                                            (revised .#definitions
+                                                     (: (-> (List [Text Global]) (List [Text Global]))
+                                                        (|>> {.#Item [name definition]}))
+                                                     self))
+                                 state)
                         []]}
 
          {.#Some already_existing}
@@ -140,9 +140,9 @@
   (-> Nat Text (Operation Any))
   (///extension.lifted
    (function (_ state)
-     {try.#Success [(revised@ .#modules
-                              (plist.has name (..empty hash))
-                              state)
+     {try.#Success [(revised .#modules
+                             (plist.has name (..empty hash))
+                             state)
                     []]})))
 
 (def: .public (with hash name action)
@@ -159,15 +159,15 @@
      (-> Text (Operation Any))
      (///extension.lifted
       (function (_ state)
-        (case (|> state (value@ .#modules) (plist.value module_name))
+        (case (|> state (the .#modules) (plist.value module_name))
           {.#Some module}
-          (let [active? (case (value@ .#module_state module)
+          (let [active? (case (the .#module_state module)
                           {.#Active} #1
                           _          #0)]
             (if active?
-              {try.#Success [(revised@ .#modules
-                                       (plist.has module_name (with@ .#module_state {<tag>} module))
-                                       state)
+              {try.#Success [(revised .#modules
+                                      (plist.has module_name (has .#module_state {<tag>} module))
+                                      state)
                              []]}
               ((///extension.up (/.except ..can_only_change_state_of_active_module [module_name {<tag>}]))
                state)))
@@ -180,10 +180,10 @@
      (-> Text (Operation Bit))
      (///extension.lifted
       (function (_ state)
-        (case (|> state (value@ .#modules) (plist.value module_name))
+        (case (|> state (the .#modules) (plist.value module_name))
           {.#Some module}
           {try.#Success [state
-                         (case (value@ .#module_state module)
+                         (case (the .#module_state module)
                            {<tag>} #1
                            _       #0)]}
 
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux
index d3187458a..42ccf412d 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux
@@ -32,13 +32,13 @@
 (def: (local? name scope)
   (-> Text Scope Bit)
   (|> scope
-      (value@ [.#locals .#mappings])
+      (the [.#locals .#mappings])
       (plist.contains? name)))
 
 (def: (local name scope)
   (-> Text Scope (Maybe [Type Variable]))
   (|> scope
-      (value@ [.#locals .#mappings])
+      (the [.#locals .#mappings])
       (plist.value name)
       (maybe#each (function (_ [type value])
                     [type {variable.#Local value}]))))
@@ -46,13 +46,13 @@
 (def: (captured? name scope)
   (-> Text Scope Bit)
   (|> scope
-      (value@ [.#captured .#mappings])
+      (the [.#captured .#mappings])
       (plist.contains? name)))
 
 (def: (captured name scope)
   (-> Text Scope (Maybe [Type Variable]))
   (loop [idx 0
-         mappings (value@ [.#captured .#mappings] scope)]
+         mappings (the [.#captured .#mappings] scope)]
     (case mappings
       {.#Item [_name [_source_type _source_ref]] mappings'}
       (if (text#= name _name)
@@ -81,7 +81,7 @@
   (extension.lifted
    (function (_ state)
      (let [[inner outer] (|> state
-                             (value@ .#scopes)
+                             (the .#scopes)
                              (list.split_when (|>> (reference? name))))]
        (case outer
          {.#End}
@@ -92,17 +92,17 @@
                                                (..reference name top_outer))
                [ref inner'] (list#mix (: (-> Scope [Variable (List Scope)] [Variable (List Scope)])
                                          (function (_ scope ref+inner)
-                                           [{variable.#Foreign (value@ [.#captured .#counter] scope)}
-                                            {.#Item (revised@ .#captured
-                                                              (: (-> Foreign Foreign)
-                                                                 (|>> (revised@ .#counter ++)
-                                                                      (revised@ .#mappings (plist.has name [ref_type (product.left ref+inner)]))))
-                                                              scope)
+                                           [{variable.#Foreign (the [.#captured .#counter] scope)}
+                                            {.#Item (revised .#captured
+                                                             (: (-> Foreign Foreign)
+                                                                (|>> (revised .#counter ++)
+                                                                     (revised .#mappings (plist.has name [ref_type (product.left ref+inner)]))))
+                                                             scope)
                                                     (product.right ref+inner)}]))
                                       [init_ref {.#End}]
                                       (list.reversed inner))
                scopes (list#composite inner' outer)]
-           {.#Right [(with@ .#scopes scopes state)
+           {.#Right [(has .#scopes scopes state)
                      {.#Some [ref_type ref]}]})
          )))))
 
@@ -112,23 +112,23 @@
 (def: .public (with_local [name type] action)
   (All (_ a) (-> [Text Type] (Operation a) (Operation a)))
   (function (_ [bundle state])
-    (case (value@ .#scopes state)
+    (case (the .#scopes state)
       {.#Item head tail}
-      (let [old_mappings (value@ [.#locals .#mappings] head)
-            new_var_id (value@ [.#locals .#counter] head)
-            new_head (revised@ .#locals
-                               (: (-> Local Local)
-                                  (|>> (revised@ .#counter ++)
-                                       (revised@ .#mappings (plist.has name [type new_var_id]))))
-                               head)]
-        (case (phase.result' [bundle (with@ .#scopes {.#Item new_head tail} state)]
+      (let [old_mappings (the [.#locals .#mappings] head)
+            new_var_id (the [.#locals .#counter] head)
+            new_head (revised .#locals
+                              (: (-> Local Local)
+                                 (|>> (revised .#counter ++)
+                                      (revised .#mappings (plist.has name [type new_var_id]))))
+                              head)]
+        (case (phase.result' [bundle (has .#scopes {.#Item new_head tail} state)]
                              action)
           {try.#Success [[bundle' state'] output]}
-          (case (value@ .#scopes state')
+          (case (the .#scopes state')
             {.#Item head' tail'}
-            (let [scopes' {.#Item (with@ .#locals (value@ .#locals head) head')
+            (let [scopes' {.#Item (has .#locals (the .#locals head) head')
                                   tail'}]
-              {try.#Success [[bundle' (with@ .#scopes scopes' state')]
+              {try.#Success [[bundle' (has .#scopes scopes' state')]
                              output]})
 
             _
@@ -153,9 +153,9 @@
 (def: .public (reset action)
   (All (_ a) (-> (Operation a) (Operation a)))
   (function (_ [bundle state])
-    (case (action [bundle (with@ .#scopes (list ..empty) state)])
+    (case (action [bundle (has .#scopes (list ..empty) state)])
       {try.#Success [[bundle' state'] output]}
-      {try.#Success [[bundle' (with@ .#scopes (value@ .#scopes state) state')]
+      {try.#Success [[bundle' (has .#scopes (the .#scopes state) state')]
                      output]}
 
       failure
@@ -164,11 +164,11 @@
 (def: .public (with action)
   (All (_ a) (-> (Operation a) (Operation [Scope a])))
   (function (_ [bundle state])
-    (case (action [bundle (revised@ .#scopes (|>> {.#Item ..empty}) state)])
+    (case (action [bundle (revised .#scopes (|>> {.#Item ..empty}) state)])
       {try.#Success [[bundle' state'] output]}
-      (case (value@ .#scopes state')
+      (case (the .#scopes state')
         {.#Item head tail}
-        {try.#Success [[bundle' (with@ .#scopes tail state')]
+        {try.#Success [[bundle' (has .#scopes tail state')]
                        [head output]]}
 
         {.#End}
@@ -181,14 +181,14 @@
   (Operation Register)
   (extension.lifted
    (function (_ state)
-     (case (value@ .#scopes state)
+     (case (the .#scopes state)
        {.#Item top _}
-       {try.#Success [state (value@ [.#locals .#counter] top)]}
+       {try.#Success [state (the [.#locals .#counter] top)]}
 
        {.#End}
        (exception.except ..no_scope [])))))
 
 (def: .public environment
   (-> Scope (Environment Variable))
-  (|>> (value@ [.#captured .#mappings])
+  (|>> (the [.#captured .#mappings])
        (list#each (function (_ [_ [_ ref]]) ref))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux
index e8f045d1e..f8002874f 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux
@@ -26,10 +26,10 @@
 
 (def: .public (check action)
   (All (_ a) (-> (Check a) (Operation a)))
-  (function (_ (^@ stateE [bundle state]))
-    (case (action (value@ .#type_context state))
+  (function (_ (^let stateE [bundle state]))
+    (case (action (the .#type_context state))
       {try.#Success [context' output]}
-      {try.#Success [[bundle (with@ .#type_context context' state)]
+      {try.#Success [[bundle (has .#type_context context' state)]
                      output]}
 
       {try.#Failure error}
@@ -60,12 +60,12 @@
 
 (def: .public (expecting expected)
   (All (_ a) (-> Type (Operation a) (Operation a)))
-  (extension.localized (value@ .#expected) (with@ .#expected)
+  (extension.localized (the .#expected) (has .#expected)
                        (function.constant {.#Some expected})))
 
 (def: .public fresh
   (All (_ a) (-> (Operation a) (Operation a)))
-  (extension.localized (value@ .#type_context) (with@ .#type_context)
+  (extension.localized (the .#type_context) (has .#type_context)
                        (function.constant check.fresh_context)))
 
 (def: .public (inference actualT)
@@ -78,8 +78,8 @@
              ...   [pre check.context
              ...    it (check.check expectedT actualT)
              ...    post check.context
-             ...    .let [pre#var_counter (value@ .#var_counter pre)]]
-             ...   (if (n.< (value@ .#var_counter post)
+             ...    .let [pre#var_counter (the .#var_counter pre)]]
+             ...   (if (n.< (the .#var_counter post)
              ...            pre#var_counter)
              ...     (do !
              ...       [.let [new! (: (-> [Nat (Maybe Type)] (Maybe Nat))
@@ -88,7 +88,7 @@
              ...                          {.#Some id}
              ...                          {.#None})))
              ...              new_vars (|> post
-             ...                           (value@ .#var_bindings)
+             ...                           (the .#var_bindings)
              ...                           (list.all new!))]
              ...        _ (monad.each ! (function (_ @new)
              ...                          (do !
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux
index 94b7a7894..d9bf832a3 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux
@@ -52,8 +52,8 @@
 
 (def: .public (merge_requirements left right)
   (-> Requirements Requirements Requirements)
-  [#imports (list#composite (value@ #imports left) (value@ #imports right))
-   #referrals (list#composite (value@ #referrals left) (value@ #referrals right))])
+  [#imports (list#composite (the #imports left) (the #imports right))
+   #referrals (list#composite (the #referrals left) (the #referrals right))])
 
 (template [<special> <general>]
   [(type: .public (<special> anchor expression directive)
@@ -71,7 +71,7 @@
      (All (_ anchor expression directive)
        (Operation anchor expression directive <phase>))
      (function (_ [bundle state])
-       {try.#Success [[bundle state] (value@ [<component> ..#phase] state)]}))]
+       {try.#Success [[bundle state] (the [<component> ..#phase] state)]}))]
 
   [analysis   ..#analysis   analysis.Phase]
   [synthesis  ..#synthesis  synthesis.Phase]
@@ -83,8 +83,8 @@
      (All (_ anchor expression directive output)
        (-> (<operation> output)
            (Operation anchor expression directive output)))
-     (|>> (phase.sub [(value@ [<component> ..#state])
-                      (with@ [<component> ..#state])])
+     (|>> (phase.sub [(the [<component> ..#state])
+                      (has [<component> ..#state])])
           extension.lifted))]
 
   [lifted_analysis   ..#analysis   analysis.Operation]
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
index 2953b2886..e439110f9 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
@@ -124,9 +124,9 @@
      (All (_ anchor expression directive output) <with_type>)
      (function (_ body)
        (function (_ [bundle state])
-         (case (body [bundle (with@ <tag> {.#Some <with_value>} state)])
+         (case (body [bundle (has <tag> {.#Some <with_value>} state)])
            {try.#Success [[bundle' state'] output]}
-           {try.#Success [[bundle' (with@ <tag> (value@ <tag> state) state')]
+           {try.#Success [[bundle' (has <tag> (the <tag> state) state')]
                           output]}
 
            {try.#Failure error}
@@ -135,8 +135,8 @@
    (def: .public <get>
      (All (_ anchor expression directive)
        (Operation anchor expression directive <get_type>))
-     (function (_ (^@ stateE [bundle state]))
-       (case (value@ <tag> state)
+     (function (_ (^let stateE [bundle state]))
+       (case (the <tag> state)
          {.#Some output}
          {try.#Success [stateE output]}
 
@@ -147,7 +147,7 @@
      (All (_ anchor expression directive)
        (-> <get_type> (Operation anchor expression directive Any)))
      (function (_ [bundle state])
-       {try.#Success [[bundle (with@ <tag> {.#Some value} state)]
+       {try.#Success [[bundle (has <tag> {.#Some value} state)]
                       []]}))]
 
   [#anchor
@@ -168,22 +168,22 @@
 (def: .public get_registry
   (All (_ anchor expression directive)
     (Operation anchor expression directive Registry))
-  (function (_ (^@ stateE [bundle state]))
-    {try.#Success [stateE (value@ #registry state)]}))
+  (function (_ (^let stateE [bundle state]))
+    {try.#Success [stateE (the #registry state)]}))
 
 (def: .public (set_registry value)
   (All (_ anchor expression directive)
     (-> Registry (Operation anchor expression directive Any)))
   (function (_ [bundle state])
-    {try.#Success [[bundle (with@ #registry value state)]
+    {try.#Success [[bundle (has #registry value state)]
                    []]}))
 
 (def: .public next
   (All (_ anchor expression directive)
     (Operation anchor expression directive Nat))
   (do phase.monad
-    [count (extension.read (value@ #counter))
-     _ (extension.update (revised@ #counter ++))]
+    [count (extension.read (the #counter))
+     _ (extension.update (revised #counter ++))]
     (in count)))
 
 (def: .public (symbol prefix)
@@ -194,18 +194,18 @@
 (def: .public (enter_module module)
   (All (_ anchor expression directive)
     (-> descriptor.Module (Operation anchor expression directive Any)))
-  (extension.update (with@ #module module)))
+  (extension.update (has #module module)))
 
 (def: .public module
   (All (_ anchor expression directive)
     (Operation anchor expression directive descriptor.Module))
-  (extension.read (value@ #module)))
+  (extension.read (the #module)))
 
 (def: .public (evaluate! label code)
   (All (_ anchor expression directive)
     (-> unit.ID [(Maybe unit.ID) expression] (Operation anchor expression directive Any)))
-  (function (_ (^@ state+ [bundle state]))
-    (case (# (value@ #host state) evaluate label code)
+  (function (_ (^let state+ [bundle state]))
+    (case (# (the #host state) evaluate label code)
       {try.#Success output}
       {try.#Success [state+ output]}
 
@@ -215,8 +215,8 @@
 (def: .public (execute! code)
   (All (_ anchor expression directive)
     (-> directive (Operation anchor expression directive Any)))
-  (function (_ (^@ state+ [bundle state]))
-    (case (# (value@ #host state) execute code)
+  (function (_ (^let state+ [bundle state]))
+    (case (# (the #host state) execute code)
       {try.#Success output}
       {try.#Success [state+ output]}
 
@@ -226,8 +226,8 @@
 (def: .public (define! context custom code)
   (All (_ anchor expression directive)
     (-> unit.ID (Maybe Text) [(Maybe unit.ID) expression] (Operation anchor expression directive [Text Any directive])))
-  (function (_ (^@ stateE [bundle state]))
-    (case (# (value@ #host state) define context custom code)
+  (function (_ (^let stateE [bundle state]))
+    (case (# (the #host state) define context custom code)
       {try.#Success output}
       {try.#Success [stateE output]}
 
@@ -238,13 +238,13 @@
   (All (_ anchor expression directive)
     (-> artifact.ID (Maybe Text) directive (Operation anchor expression directive Any)))
   (do [! phase.monad]
-    [?buffer (extension.read (value@ #buffer))]
+    [?buffer (extension.read (the #buffer))]
     (case ?buffer
       {.#Some buffer}
       ... TODO: Optimize by no longer checking for overwrites...
       (if (sequence.any? (|>> product.left (n.= artifact_id)) buffer)
         (phase.except ..cannot_overwrite_output [artifact_id])
-        (extension.update (with@ #buffer {.#Some (sequence.suffix [artifact_id custom code] buffer)})))
+        (extension.update (has #buffer {.#Some (sequence.suffix [artifact_id custom code] buffer)})))
       
       {.#None}
       (phase.except ..no_buffer_for_saving_code [artifact_id]))))
@@ -253,9 +253,9 @@
   [(`` (def: .public (<name> it (~~ (template.spliced <inputs>)) dependencies)
          (All (_ anchor expression directive)
            (-> <type> (~~ (template.spliced <input_types>)) (Set unit.ID) (Operation anchor expression directive artifact.ID)))
-         (function (_ (^@ stateE [bundle state]))
-           (let [[id registry'] (<artifact> it <mandatory?> dependencies (value@ #registry state))]
-             {try.#Success [[bundle (with@ #registry registry' state)]
+         (function (_ (^let stateE [bundle state]))
+           (let [[id registry'] (<artifact> it <mandatory?> dependencies (the #registry state))]
+             {try.#Success [[bundle (has #registry registry' state)]
                             id]}))))]
 
   [category.Definition mandatory? [mandatory?] [Bit] learn registry.definition]
@@ -276,12 +276,12 @@
 (def: .public (remember archive name)
   (All (_ anchor expression directive)
     (-> Archive Symbol (Operation anchor expression directive unit.ID)))
-  (function (_ (^@ stateE [bundle state]))
+  (function (_ (^let stateE [bundle state]))
     (let [[_module _name] name]
       (do try.monad
         [@module (archive.id _module archive)
-         registry (if (text#= (value@ #module state) _module)
-                    {try.#Success (value@ #registry state)}
+         registry (if (text#= (the #module state) _module)
+                    {try.#Success (the #registry state)}
                     (do try.monad
                       [[_module output registry] (archive.find _module archive)]
                       {try.#Success registry}))]
@@ -295,12 +295,12 @@
 (def: .public (definition archive name)
   (All (_ anchor expression directive)
     (-> Archive Symbol (Operation anchor expression directive [unit.ID (Maybe category.Definition)])))
-  (function (_ (^@ stateE [bundle state]))
+  (function (_ (^let stateE [bundle state]))
     (let [[_module _name] name]
       (do try.monad
         [@module (archive.id _module archive)
-         registry (if (text#= (value@ #module state) _module)
-                    {try.#Success (value@ #registry state)}
+         registry (if (text#= (the #module state) _module)
+                    {try.#Success (the #registry state)}
                     (do try.monad
                       [[_module output registry] (archive.find _module archive)]
                       {try.#Success registry}))]
@@ -316,7 +316,7 @@
 (def: .public (module_id module archive)
   (All (_ anchor expression directive)
     (-> descriptor.Module Archive (Operation anchor expression directive module.ID)))
-  (function (_ (^@ stateE [bundle state]))
+  (function (_ (^let stateE [bundle state]))
     (do try.monad
       [@module (archive.id module archive)]
       (in [stateE @module]))))
@@ -324,14 +324,14 @@
 (def: .public (context archive)
   (All (_ anchor expression directive)
     (-> Archive (Operation anchor expression directive unit.ID)))
-  (function (_ (^@ stateE [bundle state]))
-    (case (value@ #context state)
+  (function (_ (^let stateE [bundle state]))
+    (case (the #context state)
       {.#None}
       (exception.except ..no_context [])
       
       {.#Some id}
       (do try.monad
-        [@module (archive.id (value@ #module state) archive)]
+        [@module (archive.id (the #module state) archive)]
         (in [stateE [@module id]])))))
 
 (def: .public (with_context @artifact body)
@@ -341,8 +341,8 @@
         (Operation anchor expression directive a)))
   (function (_ [bundle state])
     (do try.monad
-      [[[bundle' state'] output] (body [bundle (with@ #context {.#Some @artifact} state)])]
-      (in [[bundle' (with@ #context (value@ #context state) state')]
+      [[[bundle' state'] output] (body [bundle (has #context {.#Some @artifact} state)])]
+      (in [[bundle' (has #context (the #context state) state')]
            output]))))
 
 (def: .public (with_registry_shift shift body)
@@ -352,24 +352,24 @@
         (Operation anchor expression directive a)))
   (function (_ [bundle state])
     (do try.monad
-      [[[bundle' state'] output] (body [bundle (with@ #registry_shift shift state)])]
-      (in [[bundle' (with@ #registry_shift (value@ #registry_shift state) state')]
+      [[[bundle' state'] output] (body [bundle (has #registry_shift shift state)])]
+      (in [[bundle' (has #registry_shift (the #registry_shift state) state')]
            output]))))
 
 (def: .public (with_new_context archive dependencies body)
   (All (_ anchor expression directive a)
     (-> Archive (Set unit.ID) (Operation anchor expression directive a)
         (Operation anchor expression directive [unit.ID a])))
-  (function (_ (^@ stateE [bundle state]))
-    (let [[@artifact registry'] (registry.resource false dependencies (value@ #registry state))
-          @artifact (n.+ @artifact (value@ #registry_shift state))]
+  (function (_ (^let stateE [bundle state]))
+    (let [[@artifact registry'] (registry.resource false dependencies (the #registry state))
+          @artifact (n.+ @artifact (the #registry_shift state))]
       (do try.monad
         [[[bundle' state'] output] (body [bundle (|> state
-                                                     (with@ #registry registry')
-                                                     (with@ #context {.#Some @artifact})
-                                                     (revised@ #interim_artifacts (|>> {.#Item @artifact})))])
-         @module (archive.id (value@ #module state) archive)]
-        (in [[bundle' (with@ #context (value@ #context state) state')]
+                                                     (has #registry registry')
+                                                     (has #context {.#Some @artifact})
+                                                     (revised #interim_artifacts (|>> {.#Item @artifact})))])
+         @module (archive.id (the #module state) archive)]
+        (in [[bundle' (has #context (the #context state) state')]
              [[@module @artifact]
               output]])))))
 
@@ -378,7 +378,7 @@
     (-> Text (Operation anchor expression directive Any)))
   (function (_ [bundle state])
     {try.#Success [[bundle
-                    (revised@ #log (sequence.suffix message) state)]
+                    (revised #log (sequence.suffix message) state)]
                    []]}))
 
 (def: .public (with_interim_artifacts archive body)
@@ -386,12 +386,12 @@
     (-> Archive (Operation anchor expression directive a)
         (Operation anchor expression directive [(List unit.ID) a])))
   (do phase.monad
-    [module (extension.read (value@ #module))]
+    [module (extension.read (the #module))]
     (function (_ state+)
       (do try.monad
         [@module (archive.id module archive)
          [[bundle' state'] output] (body state+)]
         (in [[bundle'
-              (with@ #interim_artifacts (list) state')]
-             [(list#each (|>> [@module]) (value@ #interim_artifacts state'))
+              (has #interim_artifacts (list) state')]
+             [(list#each (|>> [@module]) (the #interim_artifacts state'))
               output]])))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux
index 7b24ab177..f38a33f0d 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux
@@ -48,7 +48,7 @@
         {.#Definition [exported? actualT _]}
         (do !
           [_ (/type.inference actualT)
-           (^@ def_name [::module ::name]) (///extension.lifted (meta.normal def_name))
+           (^let def_name [::module ::name]) (///extension.lifted (meta.normal def_name))
            current (///extension.lifted meta.current_module_name)]
           (if (text#= current ::module)
             <return>
@@ -63,7 +63,7 @@
         {.#Type [exported? value labels]}
         (do !
           [_ (/type.inference .Type)
-           (^@ def_name [::module ::name]) (///extension.lifted (meta.normal def_name))
+           (^let def_name [::module ::name]) (///extension.lifted (meta.normal def_name))
            current (///extension.lifted meta.current_module_name)]
           (if (text#= current ::module)
             <return>
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux
index 670b54765..f5be4859f 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux
@@ -82,13 +82,13 @@
         (do [! //.monad]
           [state //.state
            .let [compiler_eval (meta_eval archive
-                                          (value@ [//extension.#state /.#analysis /.#state //extension.#bundle] state)
+                                          (the [//extension.#state /.#analysis /.#state //extension.#bundle] state)
                                           (evaluation.evaluator expander
-                                                                (value@ [//extension.#state /.#synthesis /.#state] state)
-                                                                (value@ [//extension.#state /.#generation /.#state] state)
-                                                                (value@ [//extension.#state /.#generation /.#phase] state)))
+                                                                (the [//extension.#state /.#synthesis /.#state] state)
+                                                                (the [//extension.#state /.#generation /.#state] state)
+                                                                (the [//extension.#state /.#generation /.#phase] state)))
                  extension_eval (:as Eval (wrapper (:expected compiler_eval)))]
-           _ (//.with (with@ [//extension.#state /.#analysis /.#state //extension.#state .#eval] extension_eval state))]
+           _ (//.with (has [//extension.#state /.#analysis /.#state //extension.#state .#eval] extension_eval state))]
           (case code
             (^ [_ {.#Form (list& [_ {.#Text name}] inputs)}])
             (//extension.apply archive again [name inputs])
@@ -116,7 +116,7 @@
               (case expansion
                 (^ (list& <lux_def_module> referrals))
                 (|> (again archive <lux_def_module>)
-                    (# ! each (revised@ /.#referrals (list#composite referrals))))
+                    (# ! each (revised /.#referrals (list#composite referrals))))
 
                 _
                 (..requiring again archive expansion)))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux
index 0f1848eff..b4e91c905 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux
@@ -117,7 +117,7 @@
 (def: .public (apply archive phase [name parameters])
   (All (_ s i o)
     (-> Archive (Phase s i o) (Extension i) (Operation s i o o)))
-  (function (_ (^@ stateE [bundle state]))
+  (function (_ (^let stateE [bundle state]))
     (case (dictionary.value name bundle)
       {.#Some handler}
       (((handler name phase) archive parameters)
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux
index 3374c4ba4..a69d511f3 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux
@@ -894,9 +894,9 @@
                selfT {.#Primitive name (list#each product.right parameters)}]
          state (extension.lifted phase.state)
          methods (monad.each ! (..method_definition archive super interfaces [mapping selfT]
-                                                    [(value@ [directive.#analysis directive.#phase] state)
-                                                     (value@ [directive.#synthesis directive.#phase] state)
-                                                     (value@ [directive.#generation directive.#phase] state)])
+                                                    [(the [directive.#analysis directive.#phase] state)
+                                                     (the [directive.#synthesis directive.#phase] state)
+                                                     (the [directive.#generation directive.#phase] state)])
                              methods)
          .let [all_dependencies (cache.all (list#each product.left methods))]
          bytecode (<| (# ! each (format.result class.writer))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
index 889d400b0..3680787de 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
@@ -99,9 +99,9 @@
     (-> Archive Type Code (Operation anchor expression directive [Type expression Any])))
   (do phase.monad
     [state (///.lifted phase.state)
-     .let [analyse (value@ [/////directive.#analysis /////directive.#phase] state)
-           synthesize (value@ [/////directive.#synthesis /////directive.#phase] state)
-           generate (value@ [/////directive.#generation /////directive.#phase] state)]
+     .let [analyse (the [/////directive.#analysis /////directive.#phase] state)
+           synthesize (the [/////directive.#synthesis /////directive.#phase] state)
+           generate (the [/////directive.#generation /////directive.#phase] state)]
      [_ codeA] (<| /////directive.lifted_analysis
                    scope.with
                    typeA.fresh
@@ -145,9 +145,9 @@
         (Operation anchor expression directive [Type expression Any])))
   (do [! phase.monad]
     [state (///.lifted phase.state)
-     .let [analyse (value@ [/////directive.#analysis /////directive.#phase] state)
-           synthesize (value@ [/////directive.#synthesis /////directive.#phase] state)
-           generate (value@ [/////directive.#generation /////directive.#phase] state)]
+     .let [analyse (the [/////directive.#analysis /////directive.#phase] state)
+           synthesize (the [/////directive.#synthesis /////directive.#phase] state)
+           generate (the [/////directive.#generation /////directive.#phase] state)]
      [_ code//type codeA] (/////directive.lifted_analysis
                            (scope.with
                              (typeA.fresh
@@ -198,9 +198,9 @@
            (Operation anchor expression directive [expression Any])))
      (do phase.monad
        [state (///.lifted phase.state)
-        .let [analyse (value@ [/////directive.#analysis /////directive.#phase] state)
-              synthesize (value@ [/////directive.#synthesis /////directive.#phase] state)
-              generate (value@ [/////directive.#generation /////directive.#phase] state)]
+        .let [analyse (the [/////directive.#analysis /////directive.#phase] state)
+              synthesize (the [/////directive.#synthesis /////directive.#phase] state)
+              generate (the [/////directive.#generation /////directive.#phase] state)]
         [_ codeA] (<| /////directive.lifted_analysis
                       scope.with
                       typeA.fresh
@@ -223,17 +223,17 @@
   (do phase.monad
     [[bundle state] phase.state
      .let [eval (/////analysis/evaluation.evaluator expander
-                                                    (value@ [/////directive.#synthesis /////directive.#state] state)
-                                                    (value@ [/////directive.#generation /////directive.#state] state)
-                                                    (value@ [/////directive.#generation /////directive.#phase] state))
-           previous_analysis_extensions (value@ [/////directive.#analysis /////directive.#state ///.#bundle] state)]]
+                                                    (the [/////directive.#synthesis /////directive.#state] state)
+                                                    (the [/////directive.#generation /////directive.#state] state)
+                                                    (the [/////directive.#generation /////directive.#phase] state))
+           previous_analysis_extensions (the [/////directive.#analysis /////directive.#state ///.#bundle] state)]]
     (phase.with [bundle
-                 (revised@ [/////directive.#analysis /////directive.#state]
-                           (: (-> /////analysis.State+ /////analysis.State+)
-                              (|>> product.right
-                                   [(|> previous_analysis_extensions
-                                        (dictionary.merged (///analysis.bundle eval host_analysis)))]))
-                           state)])))
+                 (revised [/////directive.#analysis /////directive.#state]
+                          (: (-> /////analysis.State+ /////analysis.State+)
+                             (|>> product.right
+                                  [(|> previous_analysis_extensions
+                                       (dictionary.merged (///analysis.bundle eval host_analysis)))]))
+                          state)])))
 
 (def: (announce_definition! short type)
   (All (_ anchor expression directive)
@@ -369,8 +369,8 @@
     (function (_ extension_name phase archive [alias def_name])
       (do phase.monad
         [_ (///.lifted
-            (phase.sub [(value@ [/////directive.#analysis /////directive.#state])
-                        (with@ [/////directive.#analysis /////directive.#state])]
+            (phase.sub [(the [/////directive.#analysis /////directive.#state])
+                        (has [/////directive.#analysis /////directive.#state])]
                        (define_alias alias def_name)))]
         (in /////directive.no_requirements)))]))
 
@@ -522,9 +522,9 @@
       (^ (list programC))
       (do phase.monad
         [state (///.lifted phase.state)
-         .let [analyse (value@ [/////directive.#analysis /////directive.#phase] state)
-               synthesize (value@ [/////directive.#synthesis /////directive.#phase] state)
-               generate (value@ [/////directive.#generation /////directive.#phase] state)]
+         .let [analyse (the [/////directive.#analysis /////directive.#phase] state)
+               synthesize (the [/////directive.#synthesis /////directive.#phase] state)
+               generate (the [/////directive.#generation /////directive.#phase] state)]
          programS (prepare_program archive analyse synthesize programC)
          current_module (/////directive.lifted_analysis
                          (///.lifted meta.current_module_name))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux
index 0f063ea82..09ab89d42 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux
@@ -1,39 +1,39 @@
 (.using
-  [library
-   [lux {"-" case let if}
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix monoid)]
-      ["[0]" set]]]
-    [math
-     [number
-      ["n" nat]]]
-    [target
-     ["_" common_lisp {"+" Expression Var/1}]]]]
-  ["[0]" // "_"
-   ["[1][0]" runtime {"+" Operation Phase Generator}]
+ [library
+  [lux {"-" case let if}
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix monoid)]
+     ["[0]" set]]]
+   [math
+    [number
+     ["n" nat]]]
+   [target
+    ["_" common_lisp {"+" Expression Var/1}]]]]
+ ["[0]" // "_"
+  ["[1][0]" runtime {"+" Operation Phase Generator}]
+  ["[1][0]" reference]
+  ["[1][0]" primitive]
+  ["/[1]" // "_"
    ["[1][0]" reference]
-   ["[1][0]" primitive]
    ["/[1]" // "_"
-    ["[1][0]" reference]
+    ["[1][0]" synthesis "_"
+     ["[1]/[0]" case]]
     ["/[1]" // "_"
-     ["[1][0]" synthesis "_"
-      ["[1]/[0]" case]]
-     ["/[1]" // "_"
-      ["[1][0]" synthesis {"+" Member Synthesis Path}]
-      ["[1][0]" generation]
-      ["//[1]" /// "_"
-       [reference
-        ["[1][0]" variable {"+" Register}]]
-       ["[1][0]" phase ("[1]#[0]" monad)]
-       [meta
-        [archive {"+" Archive}]]]]]]])
+     ["[1][0]" synthesis {"+" Member Synthesis Path}]
+     ["[1][0]" generation]
+     ["//[1]" /// "_"
+      [reference
+       ["[1][0]" variable {"+" Register}]]
+      ["[1][0]" phase ("[1]#[0]" monad)]
+      [meta
+       [archive {"+" Archive}]]]]]]])
 
 (def: .public register
   (-> Register Var/1)
@@ -248,7 +248,7 @@
      pattern_matching! (pattern_matching $output expression archive pathP)
      .let [storage (|> pathP
                        ////synthesis/case.storage
-                       (value@ ////synthesis/case.#bindings)
+                       (the ////synthesis/case.#bindings)
                        set.list
                        (list#each (function (_ register)
                                     [(..register register)
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
index 4a5ee59f0..c90729050 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
@@ -97,9 +97,9 @@
   (do ///////phase.monad
     [valueO (expression archive valueS)]
     (in (list#mix (function (_ side source)
-                    (.let [method (.if (value@ member.#right? side)
-                                    (//runtime.tuple//right (_.i32 (.int (value@ member.#lefts side))))
-                                    (//runtime.tuple//left (_.i32 (.int (value@ member.#lefts side)))))]
+                    (.let [method (.if (the member.#right? side)
+                                    (//runtime.tuple//right (_.i32 (.int (the member.#lefts side))))
+                                    (//runtime.tuple//left (_.i32 (.int (the member.#lefts side)))))]
                       (method source)))
                   valueO
                   (list.reversed pathP)))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux
index 325700c72..6504a5f55 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux
@@ -300,9 +300,9 @@
   (do phase.monad
     [record! (phase archive recordS)]
     (in (list#mix (function (_ step so_far!)
-                    (.let [next! (.if (value@ member.#right? step)
-                                   (..right_projection (value@ member.#lefts step))
-                                   (..left_projection (value@ member.#lefts step)))]
+                    (.let [next! (.if (the member.#right? step)
+                                   (..right_projection (the member.#lefts step))
+                                   (..left_projection (the member.#lefts step)))]
                       ($_ _.composite
                           so_far!
                           next!)))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux
index 1ad5f6df6..7e879516a 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux
@@ -83,9 +83,9 @@
   (do ///////phase.monad
     [valueO (expression archive valueS)]
     (in (list#mix (function (_ side source)
-                    (.let [method (.if (value@ member.#right? side)
-                                    (//runtime.tuple//right (_.int (.int (value@ member.#lefts side))))
-                                    (//runtime.tuple//left (_.int (.int (value@ member.#lefts side)))))]
+                    (.let [method (.if (the member.#right? side)
+                                    (//runtime.tuple//right (_.int (.int (the member.#lefts side))))
+                                    (//runtime.tuple//left (_.int (.int (the member.#lefts side)))))]
                       (method source)))
                   valueO
                   (list.reversed pathP)))))
@@ -271,7 +271,7 @@
 (def: .public dependencies
   (-> Path (List Var))
   (|>> ////synthesis/case.storage
-       (value@ ////synthesis/case.#dependencies)
+       (the ////synthesis/case.#dependencies)
        set.list
        (list#each (function (_ variable)
                     (.case variable
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux
index d65c81d6a..54685bfff 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux
@@ -1,38 +1,38 @@
 (.using
-  [library
-   [lux {"-" case let if}
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [data
-     ["[0]" product]
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]
-      ["[0]" set]]]
-    [math
-     [number
-      ["i" int]]]
-    [target
-     ["_" php {"+" Expression Var Statement}]]]]
-  ["[0]" // "_"
-   ["[1][0]" runtime {"+" Operation Phase Phase! Generator Generator!}]
+ [library
+  [lux {"-" case let if}
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [data
+    ["[0]" product]
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]
+     ["[0]" set]]]
+   [math
+    [number
+     ["i" int]]]
+   [target
+    ["_" php {"+" Expression Var Statement}]]]]
+ ["[0]" // "_"
+  ["[1][0]" runtime {"+" Operation Phase Phase! Generator Generator!}]
+  ["[1][0]" reference]
+  ["[1][0]" primitive]
+  ["/[1]" // "_"
    ["[1][0]" reference]
-   ["[1][0]" primitive]
    ["/[1]" // "_"
-    ["[1][0]" reference]
+    ["[1][0]" synthesis "_"
+     ["[1]/[0]" case]]
     ["/[1]" // "_"
-     ["[1][0]" synthesis "_"
-      ["[1]/[0]" case]]
-     ["/[1]" // "_"
-      ["[1][0]" synthesis {"+" Member Synthesis Path}]
-      ["[1][0]" generation]
-      ["//[1]" /// "_"
-       [reference
-        ["[1][0]" variable {"+" Register}]]
-       ["[1][0]" phase ("[1]#[0]" monad)]
-       [meta
-        [archive {"+" Archive}]]]]]]])
+     ["[1][0]" synthesis {"+" Member Synthesis Path}]
+     ["[1][0]" generation]
+     ["//[1]" /// "_"
+      [reference
+       ["[1][0]" variable {"+" Register}]]
+      ["[1][0]" phase ("[1]#[0]" monad)]
+      [meta
+       [archive {"+" Archive}]]]]]]])
 
 (def: .public register
   (-> Register Var)
@@ -260,7 +260,7 @@
 (def: .public dependencies
   (-> Path (List Var))
   (|>> ////synthesis/case.storage
-       (value@ ////synthesis/case.#dependencies)
+       (the ////synthesis/case.#dependencies)
        set.list
        (list#each (function (_ variable)
                     (.case variable
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux
index 8b10f2833..bfb3ebdc8 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux
@@ -110,10 +110,10 @@
   (do ///////phase.monad
     [valueO (expression archive valueS)]
     (in (list#mix (function (_ side source)
-                    (.let [method (.if (value@ member.#right? side)
+                    (.let [method (.if (the member.#right? side)
                                     //runtime.tuple::right
                                     //runtime.tuple::left)]
-                      (method (_.int (.int (value@ member.#lefts side)))
+                      (method (_.int (.int (the member.#lefts side)))
                               source)))
                   valueO
                   (list.reversed pathP)))))
@@ -320,7 +320,7 @@
 (def: .public dependencies
   (-> Path (List SVar))
   (|>> case.storage
-       (value@ case.#dependencies)
+       (the case.#dependencies)
        set.list
        (list#each (function (_ variable)
                     (.case variable
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux
index ec725005a..d4abe4b2b 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux
@@ -111,9 +111,9 @@
   (do ///////phase.monad
     [valueO (expression archive valueS)]
     (in (list#mix (function (_ side source)
-                    (.let [method (.if (value@ member.#right? side)
-                                    (//runtime.tuple//right (_.int (.int (value@ member.#lefts side))))
-                                    (//runtime.tuple//left (_.int (.int (value@ member.#lefts side)))))]
+                    (.let [method (.if (the member.#right? side)
+                                    (//runtime.tuple//right (_.int (.int (the member.#lefts side))))
+                                    (//runtime.tuple//left (_.int (.int (the member.#lefts side)))))]
                       (method source)))
                   valueO
                   (list.reversed pathP)))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux
index d711e963a..ae74e45f3 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux
@@ -62,8 +62,8 @@
         (case structure
           {///complex.#Variant variant}
           (do phase.monad
-            [valueS (optimization' (value@ ///complex.#value variant))]
-            (in (/.variant (with@ ///complex.#value valueS variant))))
+            [valueS (optimization' (the ///complex.#value variant))]
+            (in (/.variant (has ///complex.#value valueS variant))))
 
           {///complex.#Tuple tuple}
           (|> tuple
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux
index ebab6fe8a..1bf6357f7 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux
@@ -371,8 +371,8 @@
       path_storage
 
       (^ (/.path/bind register))
-      (revised@ #bindings (set.has register)
-                path_storage)
+      (revised #bindings (set.has register)
+               path_storage)
 
       {/.#Bit_Fork _ default otherwise}
       (|> (case otherwise
@@ -410,12 +410,12 @@
           (list#mix for_synthesis synthesis_storage members)
 
           {/.#Reference {///reference.#Variable {///reference/variable.#Local register}}}
-          (if (set.member? (value@ #bindings synthesis_storage) register)
+          (if (set.member? (the #bindings synthesis_storage) register)
             synthesis_storage
-            (revised@ #dependencies (set.has {///reference/variable.#Local register}) synthesis_storage))
+            (revised #dependencies (set.has {///reference/variable.#Local register}) synthesis_storage))
 
           {/.#Reference {///reference.#Variable var}}
-          (revised@ #dependencies (set.has var) synthesis_storage)
+          (revised #dependencies (set.has var) synthesis_storage)
 
           (^ (/.function/apply [functionS argsS]))
           (list#mix for_synthesis synthesis_storage {.#Item functionS argsS})
@@ -424,20 +424,20 @@
           (list#mix for_synthesis synthesis_storage environment)
 
           (^ (/.branch/case [inputS pathS]))
-          (revised@ #dependencies
-                    (set.union (value@ #dependencies (for_path pathS synthesis_storage)))
-                    (for_synthesis inputS synthesis_storage))
+          (revised #dependencies
+                   (set.union (the #dependencies (for_path pathS synthesis_storage)))
+                   (for_synthesis inputS synthesis_storage))
 
           (^ (/.branch/exec [before after]))
           (list#mix for_synthesis synthesis_storage (list before after))
 
           (^ (/.branch/let [inputS register exprS]))
-          (revised@ #dependencies
-                    (set.union (|> synthesis_storage
-                                   (revised@ #bindings (set.has register))
-                                   (for_synthesis exprS)
-                                   (value@ #dependencies)))
-                    (for_synthesis inputS synthesis_storage))
+          (revised #dependencies
+                   (set.union (|> synthesis_storage
+                                  (revised #bindings (set.has register))
+                                  (for_synthesis exprS)
+                                  (the #dependencies)))
+                   (for_synthesis inputS synthesis_storage))
 
           (^ (/.branch/if [testS thenS elseS]))
           (list#mix for_synthesis synthesis_storage (list testS thenS elseS))
@@ -446,15 +446,15 @@
           (for_synthesis whole synthesis_storage)
 
           (^ (/.loop/scope [start initsS+ iterationS]))
-          (revised@ #dependencies
-                    (set.union (|> synthesis_storage
-                                   (revised@ #bindings (set.union (|> initsS+
-                                                                      list.enumeration
-                                                                      (list#each (|>> product.left (n.+ start)))
-                                                                      (set.of_list n.hash))))
-                                   (for_synthesis iterationS)
-                                   (value@ #dependencies)))
-                    (list#mix for_synthesis synthesis_storage initsS+))
+          (revised #dependencies
+                   (set.union (|> synthesis_storage
+                                  (revised #bindings (set.union (|> initsS+
+                                                                    list.enumeration
+                                                                    (list#each (|>> product.left (n.+ start)))
+                                                                    (set.of_list n.hash))))
+                                  (for_synthesis iterationS)
+                                  (the #dependencies)))
+                   (list#mix for_synthesis synthesis_storage initsS+))
 
           (^ (/.loop/again replacementsS+))
           (list#mix for_synthesis synthesis_storage replacementsS+)
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux
index 8e37a6714..c08117adc 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux
@@ -57,7 +57,7 @@
         (with_expansions [<apply> (as_is (/.function/apply [funcS argsS]))]
           (case funcS
             (^ (/.function/abstraction functionS))
-            (if (n.= (value@ /.#arity functionS)
+            (if (n.= (the /.#arity functionS)
                      (list.size argsS))
               (do !
                 [locals /.locals]
@@ -279,7 +279,7 @@
            (case (//loop.optimization false 1 (list) abstraction)
              {.#Some [startL initsL bodyL]}
              [/.#environment environment
-              /.#arity (value@ /.#arity abstraction)
+              /.#arity (the /.#arity abstraction)
               /.#body (/.loop/scope [startL initsL bodyL])]
              
              {.#None}
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux
index 75ddb63b0..f3d6b8b68 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux
@@ -87,9 +87,9 @@
       (case structure
         {analysis/complex.#Variant variant}
         (do maybe.monad
-          [value' (|> variant (value@ analysis/complex.#value) (again false))]
+          [value' (|> variant (the analysis/complex.#value) (again false))]
           (in (|> variant
-                  (with@ analysis/complex.#value value')
+                  (has analysis/complex.#value value')
                   /.variant)))
         
         {analysis/complex.#Tuple tuple}
@@ -148,10 +148,10 @@
       (^ (/.loop/scope scope))
       (do [! maybe.monad]
         [inits' (|> scope
-                    (value@ /.#inits)
+                    (the /.#inits)
                     (monad.each ! (again false)))
-         iteration' (again return? (value@ /.#iteration scope))]
-        (in (/.loop/scope [/.#start (|> scope (value@ /.#start) (register_optimization offset))
+         iteration' (again return? (the /.#iteration scope))]
+        (in (/.loop/scope [/.#start (|> scope (the /.#start) (register_optimization offset))
                            /.#inits inits'
                            /.#iteration iteration'])))
 
@@ -211,6 +211,6 @@
 
 (def: .public (optimization true_loop? offset inits functionS)
   (-> Bit Register (List Synthesis) Abstraction (Maybe [Register (List Synthesis) Synthesis]))
-  (|> (value@ /.#body functionS)
-      (body_optimization true_loop? offset (value@ /.#environment functionS) (value@ /.#arity functionS))
+  (|> (the /.#body functionS)
+      (body_optimization true_loop? offset (the /.#environment functionS) (the /.#arity functionS))
       (maybe#each (|>> [offset inits]))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux
index 1108cfbc4..0b1d000b4 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux
@@ -205,7 +205,7 @@
      (:expected <<otherwise>>))])
 
 (template: (!horizontal where offset source_code)
-  [[(revised@ .#column ++ where)
+  [[(revised .#column ++ where)
     (!++ offset)
     source_code]])
 
@@ -264,7 +264,7 @@
     (<| (let [g!content (!clip offset g!end source_code)])
         (!guarantee_no_new_lines where offset source_code g!content)
         {.#Right [[(let [size (!n/- offset g!end)]
-                     (revised@ .#column (|>> (!n/+ size) (!n/+ 2)) where))
+                     (revised .#column (|>> (!n/+ size) (!n/+ 2)) where))
                    (!++ g!end)
                    source_code]
                   [where
@@ -410,7 +410,7 @@
                    (signed_parser source_code//size offset where (!++/2 offset) source_code)
                    (!full_symbol_parser offset [where (!++ offset) source_code] where @aliases .#Symbol)))])
 
-(with_expansions [<output> {.#Right [[(revised@ .#column (|>> (!n/+ (!n/- start end))) where)
+(with_expansions [<output> {.#Right [[(revised .#column (|>> (!n/+ (!n/- start end))) where)
                                       end
                                       source_code]
                                      (!clip start end source_code)]}]
@@ -483,7 +483,7 @@
 
   (def: (bit_syntax value [where offset/0 source_code])
     (-> Bit (Parser Code))
-    {.#Right [[(revised@ .#column (|>> !++/2) where)
+    {.#Right [[(revised .#column (|>> !++/2) where)
                (!++/2 offset/0)
                source_code]
               [where {.#Bit value}]]})
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux
index 819c44a5f..1d8b9e6d3 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux
@@ -203,11 +203,11 @@
 (template [<with> <query> <tag> <type>]
   [(def: .public (<with> value)
      (-> <type> (All (_ a) (-> (Operation a) (Operation a))))
-     (extension.temporary (with@ <tag> value)))
+     (extension.temporary (has <tag> value)))
 
    (def: .public <query>
      (Operation <type>)
-     (extension.read (value@ <tag>)))]
+     (extension.read (the <tag>)))]
 
   [with_locals    locals    #locals    Nat]
   [with_currying? currying? #currying? Bit]
@@ -383,12 +383,12 @@
       {#Loop loop}
       (case loop
         {#Scope scope}
-        (|> (format (%.nat (value@ #start scope))
-                    " " (|> (value@ #inits scope)
+        (|> (format (%.nat (the #start scope))
+                    " " (|> (the #inits scope)
                             (list#each %synthesis)
                             (text.interposed " ")
                             (text.enclosed ["[" "]"]))
-                    " " (%synthesis (value@ #iteration scope)))
+                    " " (%synthesis (the #iteration scope)))
             (text.enclosed ["{#loop " "}"]))
         
         {#Again args}
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux
index 4e1ed910b..e6c9fb680 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux
@@ -20,7 +20,7 @@
 
 (def: .public (format it)
   (%.Format Member)
-  (%.format "[" (%.nat (value@ #lefts it)) " " (%.bit (value@ #right? it)) "]"))
+  (%.format "[" (%.nat (the #lefts it)) " " (%.bit (the #right? it)) "]"))
 
 (def: .public hash
   (Hash Member)
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux
index dd9bf4223..045681ac2 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux
@@ -20,7 +20,7 @@
 
 (def: .public (format it)
   (%.Format Side)
-  (%.format "{" (%.nat (value@ #lefts it)) " " (%.bit (value@ #right? it)) "}"))
+  (%.format "{" (%.nat (the #lefts it)) " " (%.bit (the #right? it)) "}"))
 
 (def: .public hash
   (Hash Side)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux
index 4ec08ed90..a63bde0a1 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux
@@ -1,6 +1,6 @@
 (.using
  [library
-  [lux {"-" Module}
+  [lux {"-" Module has}
    [abstract
     ["[0]" equivalence {"+" Equivalence}]
     ["[0]" monad {"+" do}]]
@@ -79,7 +79,7 @@
 
   (def: next
     (-> Archive module.ID)
-    (|>> :representation (value@ #next)))
+    (|>> :representation (the #next)))
 
   (def: .public empty
     Archive
@@ -108,8 +108,8 @@
         {try.#Success [/#next
                        (|> archive
                            :representation
-                           (revised@ #resolver (dictionary.has module [/#next (: (Maybe (Entry Any)) {.#None})]))
-                           (revised@ #next ++)
+                           (revised #resolver (dictionary.has module [/#next (: (Maybe (Entry Any)) {.#None})]))
+                           (revised #next ++)
                            :abstraction)]})))
 
   (def: .public (has module entry archive)
@@ -119,15 +119,15 @@
         {.#Some [id {.#None}]}
         {try.#Success (|> archive
                           :representation
-                          (revised@ ..#resolver (dictionary.has module [id {.#Some entry}]))
+                          (revised ..#resolver (dictionary.has module [id {.#Some entry}]))
                           :abstraction)}
         
         {.#Some [id {.#Some [existing_module existing_output existing_registry]}]}
-        (if (same? (value@ module.#document existing_module)
-                   (value@ [#module module.#document] entry))
+        (if (same? (the module.#document existing_module)
+                   (the [#module module.#document] entry))
           ... TODO: Find out why this code allows for the same module to be added more than once. It looks fishy...
           {try.#Success archive}
-          (exception.except ..cannot_replace_document [module (value@ module.#document existing_module) (value@ [#module module.#document] entry)]))
+          (exception.except ..cannot_replace_document [module (the module.#document existing_module) (the [#module module.#document] entry)]))
         
         {.#None}
         (exception.except ..module_must_be_reserved_before_it_can_be_added [module]))))
@@ -135,7 +135,7 @@
   (def: .public entries
     (-> Archive (List [descriptor.Module [module.ID (Entry Any)]]))
     (|>> :representation
-         (value@ #resolver)
+         (the #resolver)
          dictionary.entries
          (list.all (function (_ [module [module_id entry]])
                      (# maybe.monad each (|>> [module_id] [module]) entry)))))
@@ -165,7 +165,7 @@
   (def: .public archived
     (-> Archive (List descriptor.Module))
     (|>> :representation
-         (value@ #resolver)
+         (the #resolver)
          dictionary.entries
          (list.all (function (_ [module [id descriptor+document]])
                      (case descriptor+document
@@ -185,13 +185,13 @@
   (def: .public reserved
     (-> Archive (List descriptor.Module))
     (|>> :representation
-         (value@ #resolver)
+         (the #resolver)
          dictionary.keys))
 
   (def: .public reservations
     (-> Archive (List [descriptor.Module module.ID]))
     (|>> :representation
-         (value@ #resolver)
+         (the #resolver)
          dictionary.entries
          (list#each (function (_ [module [id _]])
                       [module id]))))
@@ -201,17 +201,17 @@
     (let [[+next +resolver] (:representation additions)]
       (|> archive
           :representation
-          (revised@ #next (n.max +next))
-          (revised@ #resolver (function (_ resolver)
-                                (list#mix (function (_ [module [id entry]] resolver)
-                                            (case entry
-                                              {.#Some _}
-                                              (dictionary.has module [id entry] resolver)
-                                              
-                                              {.#None}
-                                              resolver))
-                                          resolver
-                                          (dictionary.entries +resolver))))
+          (revised #next (n.max +next))
+          (revised #resolver (function (_ resolver)
+                               (list#mix (function (_ [module [id entry]] resolver)
+                                           (case entry
+                                             {.#Some _}
+                                             (dictionary.has module [id entry] resolver)
+                                             
+                                             {.#None}
+                                             resolver))
+                                         resolver
+                                         (dictionary.entries +resolver))))
           :abstraction)))
 
   (type: Reservation
@@ -262,6 +262,6 @@
            [#next next
             #resolver (list#mix (function (_ [module id] archive)
                                   (dictionary.has module [id (: (Maybe (Entry Any)) {.#None})] archive))
-                                (value@ #resolver (:representation ..empty))
+                                (the #resolver (:representation ..empty))
                                 reservations)]))))
   )
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux
index 144895928..9a97cc0ec 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux
@@ -58,7 +58,7 @@
 
   (def: .public signature
     (-> (Document Any) Signature)
-    (|>> :representation (value@ #signature)))
+    (|>> :representation (the #signature)))
 
   (def: .public (writer content)
     (All (_ d) (-> (Writer d) (Writer (Document d))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
index 6489b6fb7..be3619845 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
@@ -39,7 +39,7 @@
 
   (def: .public artifacts
     (-> Registry (Sequence [Artifact (Set unit.ID)]))
-    (|>> :representation (value@ #artifacts)))
+    (|>> :representation (the #artifacts)))
 
   (def: next
     (-> Registry ID)
@@ -51,10 +51,10 @@
       [id
        (|> registry
            :representation
-           (revised@ #artifacts (sequence.suffix [[//.#id id
-                                                   //.#category {//category.#Anonymous}
-                                                   //.#mandatory? mandatory?]
-                                                  dependencies]))
+           (revised #artifacts (sequence.suffix [[//.#id id
+                                                  //.#category {//category.#Anonymous}
+                                                  //.#mandatory? mandatory?]
+                                                 dependencies]))
            :abstraction)]))
 
   (template [<tag> <create> <fetch> <type> <name> <+resolver>]
@@ -64,21 +64,21 @@
          [id
           (|> registry
               :representation
-              (revised@ #artifacts (sequence.suffix [[//.#id id
-                                                      //.#category {<tag> it}
-                                                      //.#mandatory? mandatory?]
-                                                     dependencies]))
-              (revised@ #resolver (dictionary.has (<name> it) [id (: (Maybe //category.Definition) <+resolver>)]))
+              (revised #artifacts (sequence.suffix [[//.#id id
+                                                     //.#category {<tag> it}
+                                                     //.#mandatory? mandatory?]
+                                                    dependencies]))
+              (revised #resolver (dictionary.has (<name> it) [id (: (Maybe //category.Definition) <+resolver>)]))
               :abstraction)]))
 
      (def: .public (<fetch> registry)
        (-> Registry (List <type>))
        (|> registry
            :representation
-           (value@ #artifacts)
+           (the #artifacts)
            sequence.list
            (list.all (|>> product.left
-                          (value@ //.#category)
+                          (the //.#category)
                           (case> {<tag> it} {.#Some it}
                                  _ {.#None})))))]
 
@@ -94,7 +94,7 @@
   (def: .public (find_definition name registry)
     (-> Text Registry (Maybe [ID (Maybe //category.Definition)]))
     (|> (:representation registry)
-        (value@ #resolver)
+        (the #resolver)
         (dictionary.value name)))
 
   (def: .public (id name registry)
@@ -134,10 +134,10 @@
           artifacts (: (Writer (Sequence [Category Bit (Set unit.ID)]))
                        (binary.sequence/64 ($_ binary.and category mandatory? dependencies)))]
       (|>> :representation
-           (value@ #artifacts)
+           (the #artifacts)
            (sequence#each (function (_ [it dependencies])
-                            [(value@ //.#category it)
-                             (value@ //.#mandatory? it)
+                            [(the //.#category it)
+                             (the //.#mandatory? it)
                              dependencies]))
            artifacts)))
 
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux
index 533ed6cb0..235913727 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux
@@ -33,7 +33,7 @@
 
 (def: .public (description signature)
   (-> Signature Text)
-  (format (%.symbol (value@ #name signature)) " " (version.format (value@ #version signature))))
+  (format (%.symbol (the #name signature)) " " (version.format (the #version signature))))
 
 (def: .public writer
   (Writer Signature)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux
index ed2e00876..9412bbb0b 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux
@@ -38,6 +38,6 @@
 
 (def: .public (format it)
   (%.Format ID)
-  (%.format (%.nat (value@ #module it))
+  (%.format (%.nat (the #module it))
             "."
-            (%.nat (value@ #artifact it))))
+            (%.nat (the #artifact it))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache.lux b/stdlib/source/library/lux/tool/compiler/meta/cache.lux
index 6b4194359..72470f228 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache.lux
@@ -18,8 +18,8 @@
 (def: .public (path fs context)
   (All (_ !) (-> (file.System !) Context file.Path))
   (let [/ (# fs separator)]
-    (format (value@ context.#target context)
-            / (value@ context.#host context)
+    (format (the context.#target context)
+            / (the context.#host context)
             / (version.format //.version))))
 
 (def: .public (enabled? fs context)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux
index fd63495d1..ca2689c18 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux
@@ -26,7 +26,7 @@
   (format (//module.path fs context @module)
           (# fs separator)
           (%.nat @artifact)
-          (value@ context.#artifact_extension context)))
+          (the context.#artifact_extension context)))
 
 (def: .public (cache fs context @module @artifact)
   (All (_ !)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux
index 9bce830d6..f1c4a4806 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux
@@ -83,7 +83,7 @@
     (case value
       {analysis/complex.#Variant value}
       (|> value
-          (value@ analysis/complex.#value)
+          (the analysis/complex.#value)
           references)
       
       {analysis/complex.#Tuple value}
@@ -131,7 +131,7 @@
       (case value
         {synthesis.#Scope value}
         (|> value
-            (value@ synthesis.#iteration)
+            (the synthesis.#iteration)
             references)
         
         {synthesis.#Again value}
@@ -143,7 +143,7 @@
       (case value
         {synthesis.#Abstraction value}
         (|> value
-            (value@ synthesis.#body)
+            (the synthesis.#body)
             references)
         
         {synthesis.#Apply function arguments}
@@ -193,8 +193,8 @@
                        registry.artifacts
                        sequence.list
                        (list#each (function (_ [artifact dependencies])
-                                    [[module_id (value@ artifact.#id artifact)]
-                                     (value@ artifact.#mandatory? artifact)
+                                    [[module_id (the artifact.#id artifact)]
+                                     (the artifact.#mandatory? artifact)
                                      dependencies])))))
       list.together
       (list#mix (function (_ [artifact_id mandatory? dependencies]
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux
index 01c37431f..4fd7fdebf 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux
@@ -59,7 +59,7 @@
                   (do [! state.monad]
                     [.let [parents (case (archive.find module archive)
                                      {try.#Success [module output registry]}
-                                     (value@ [module.#descriptor descriptor.#references] module)
+                                     (the [module.#descriptor descriptor.#references] module)
                                      
                                      {try.#Failure error}
                                      ..fresh)]
@@ -95,5 +95,5 @@
                       (do try.monad
                         [module_id (archive.id module archive)
                          entry (archive.find module archive)
-                         document (document.marked? key (value@ [archive.#module module.#document] entry))]
-                        (in [module [module_id (with@ [archive.#module module.#document] document entry)]])))))))
+                         document (document.marked? key (the [archive.#module module.#document] entry))]
+                        (in [module [module_id (has [archive.#module module.#document] document entry)]])))))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux
index c5f2f577a..e393253e1 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux
@@ -50,12 +50,12 @@
 
 (def: .public (valid? expected actual)
   (-> Descriptor Input Bit)
-  (and (text#= (value@ descriptor.#name expected)
-               (value@ ////.#module actual))
-       (text#= (value@ descriptor.#file expected)
-               (value@ ////.#file actual))
-       (n.= (value@ descriptor.#hash expected)
-            (value@ ////.#hash actual))))
+  (and (text#= (the descriptor.#name expected)
+               (the ////.#module actual))
+       (text#= (the descriptor.#file expected)
+               (the ////.#file actual))
+       (n.= (the descriptor.#hash expected)
+            (the ////.#hash actual))))
 
 (def: initial
   (-> (List Cache) Purge)
@@ -73,7 +73,7 @@
                 (if (purged? module_name)
                   purge
                   (if (|> entry
-                          (value@ [archive.#module module.#descriptor descriptor.#references])
+                          (the [archive.#module module.#descriptor descriptor.#references])
                           set.list
                           (list.any? purged?))
                     (dictionary.has module_name @module purge)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
index 212006bbe..a807e083c 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
@@ -81,11 +81,11 @@
                                 (do !
                                   [entry (archive.find module archive)
                                    content (|> entry
-                                               (value@ [archive.#module module.#document])
+                                               (the [archive.#module module.#document])
                                                (document.content $.key))]
                                   (in [module content])))
                             (archive.archived archive)))]
-    (in (with@ .#modules modules (fresh_analysis_state host configuration)))))
+    (in (has .#modules modules (fresh_analysis_state host configuration)))))
 
 (type: Definitions (Dictionary Text Any))
 (type: Analysers (Dictionary Text analysis.Handler))
@@ -240,8 +240,8 @@
                                        try.of_maybe
                                        (# ! each (function (_ def_value)
                                                    [def_name {.#Type [exported? (:as .Type def_value) labels]}])))))
-                             (value@ .#definitions content))]
-    (in [(document.document $.key (with@ .#definitions definitions content))
+                             (the .#definitions content))]
+    (in [(document.document $.key (has .#definitions definitions content))
          bundles])))
 
 (def: (load_definitions fs context @module host_environment entry)
@@ -252,13 +252,13 @@
   (do (try.with async.monad)
     [actual (: (Async (Try (Dictionary Text Binary)))
                (cache/module.artifacts async.monad fs context @module))
-     .let [expected (registry.artifacts (value@ archive.#registry entry))]
-     [document bundles output] (|> (value@ [archive.#module module.#document] entry)
-                                   (loaded_document (value@ context.#artifact_extension context) host_environment @module expected actual)
+     .let [expected (registry.artifacts (the archive.#registry entry))]
+     [document bundles output] (|> (the [archive.#module module.#document] entry)
+                                   (loaded_document (the context.#artifact_extension context) host_environment @module expected actual)
                                    async#in)]
     (in [(|> entry
-             (with@ [archive.#module module.#document] document)
-             (with@ archive.#output output))
+             (has [archive.#module module.#document] document)
+             (has archive.#output output))
          bundles])))
 
 (def: pseudo_module
@@ -291,8 +291,8 @@
       (if (text#= descriptor.runtime module_name)
         (in [true <cache>])
         (do !
-          [input (//context.read fs ..pseudo_module import contexts (value@ context.#host_module_extension context) module_name)]
-          (in [(cache/purge.valid? (value@ module.#descriptor module) input) <cache>]))))))
+          [input (//context.read fs ..pseudo_module import contexts (the context.#host_module_extension context) module_name)]
+          (in [(cache/purge.valid? (the module.#descriptor module) input) <cache>]))))))
 
 (def: (pre_loaded_caches customs fs context import contexts archive)
   (-> (List Custom) (file.System Async) Context Import (List //.Context) Archive
@@ -354,7 +354,7 @@
                              (archive.has module entry archive))
                            archive
                            loaded_caches)
-        analysis_state (..analysis_state (value@ context.#host context) configuration archive)]
+        analysis_state (..analysis_state (the context.#host context) configuration archive)]
        (in [archive
             analysis_state
             (list#mix (function (_ [_ [+analysers +synthesizers +generators +directives]]
@@ -380,5 +380,5 @@
       
       {try.#Failure error}
       (in {try.#Success [archive.empty
-                         (fresh_analysis_state (value@ context.#host context) configuration)
+                         (fresh_analysis_state (the context.#host context) configuration)
                          ..empty_bundles]}))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux
index 5b0bd0438..a92bdbbe1 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux
@@ -37,8 +37,8 @@
   (-> (cache/module.Order Any) Order)
   (list#each (function (_ [module [module_id entry]])
                (|> entry
-                   (value@ archive.#registry)
+                   (the archive.#registry)
                    registry.artifacts
                    sequence.list
-                   (list#each (|>> product.left (value@ artifact.#id)))
+                   (list#each (|>> product.left (the artifact.#id)))
                    [module_id]))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
index 99c9a316b..4e1c841b5 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
@@ -152,7 +152,7 @@
                        (maybe#each (|>> name.internal name.read))
                        (maybe.else (runtime.class_name [module artifact]))
                        (text.replaced "." "/")
-                       (text.suffix (value@ context.#artifact_extension static)))]
+                       (text.suffix (the context.#artifact_extension static)))]
     (do try.monad
       [_ (java/util/jar/JarOutputStream::putNextEntry (java/util/jar/JarEntry::new class_path) sink)]
       (in (do_to sink
@@ -266,7 +266,7 @@
        .let [buffer (java/io/ByteArrayOutputStream::new (ffi.as_int (.int ..mebi_byte)))]
        sink (|> order
                 (list#each (function (_ [module [module_id entry]])
-                             [module_id (value@ archive.#output entry)]))
+                             [module_id (the archive.#output entry)]))
                 (monad.mix ! (..write_module static necessary_dependencies)
                            (java/util/jar/JarOutputStream::new buffer (..manifest program))))
        [entries duplicates sink] (|> host_dependencies
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
index 85eb525cf..df7f11ce0 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
@@ -85,7 +85,7 @@
       (Try (List [module.ID [Text Binary]])))
   (do [! try.monad]
     [bundle (: (Try (Maybe _.Statement))
-               (..bundle_module module module_id necessary_dependencies (value@ archive.#output entry)))]
+               (..bundle_module module module_id necessary_dependencies (the archive.#output entry)))]
     (case bundle
       {.#None}
       (in sink)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
index f46a71e8e..f1dfb0189 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
@@ -1,48 +1,48 @@
 (.using
-  [library
-   [lux {"-" Module}
-    [type {"+" :sharing}]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]]
-    [data
-     [binary {"+" Binary}]
-     ["[0]" product]
-     ["[0]" text
-      ["%" format {"+" format}]
-      ["[0]" encoding]]
-     [collection
-      ["[0]" sequence]
-      ["[0]" list ("[1]#[0]" functor mix)]
-      ["[0]" dictionary {"+" Dictionary}]
-      ["[0]" set]]
-     [format
-      ["[0]" tar]
-      ["[0]" binary]]]
-    [target
-     ["_" scheme]]
-    [time
-     ["[0]" instant {"+" Instant}]]
-    [world
-     ["[0]" file]]]]
-  [program
-   [compositor
-    ["[0]" static {"+" Static}]]]
-  ["[0]" // {"+" Packager}
+ [library
+  [lux {"-" Module}
+   [type {"+" :sharing}]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]]
+   [data
+    [binary {"+" Binary}]
+    ["[0]" product]
+    ["[0]" text
+     ["%" format {"+" format}]
+     ["[0]" encoding]]
+    [collection
+     ["[0]" sequence]
+     ["[0]" list ("[1]#[0]" functor mix)]
+     ["[0]" dictionary {"+" Dictionary}]
+     ["[0]" set]]
+    [format
+     ["[0]" tar]
+     ["[0]" binary]]]
+   [target
+    ["_" scheme]]
+   [time
+    ["[0]" instant {"+" Instant}]]
+   [world
+    ["[0]" file]]]]
+ [program
+  [compositor
+   ["[0]" static {"+" Static}]]]
+ ["[0]" // {"+" Packager}
+  [//
+   ["[0]" archive {"+" Output}
+    ["[0]" descriptor {"+" Module Descriptor}]
+    ["[0]" artifact]
+    ["[0]" document {"+" Document}]]
+   [cache
+    ["[0]" dependency]]
+   ["[0]" io "_"
+    ["[1]" archive]]
    [//
-    ["[0]" archive {"+" Output}
-     ["[0]" descriptor {"+" Module Descriptor}]
-     ["[0]" artifact]
-     ["[0]" document {"+" Document}]]
-    [cache
-     ["[0]" dependency]]
-    ["[0]" io "_"
-     ["[1]" archive]]
-    [//
-     [language
-      ["$" lux
-       [generation {"+" Context}]]]]]])
+    [language
+     ["$" lux
+      [generation {"+" Context}]]]]]])
 
 ... TODO: Delete ASAP
 (type: (Action ! a)
@@ -104,7 +104,7 @@
                (..bundle_module output))
      entry_content (: (Try tar.Content)
                       (|> descriptor
-                          (value@ descriptor.#references)
+                          (the descriptor.#references)
                           set.list
                           (list.all (function (_ module) (dictionary.value module mapping)))
                           (list#each (|>> ..module_file _.string _.load_relative/1))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
index f3cc4f7a0..1b867cd4f 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
@@ -71,7 +71,7 @@
        order (cache/module.load_order $.key archive)]
       (|> order
           (list#each (function (_ [module [module_id entry]])
-                       [module_id (value@ archive.#output entry)]))
+                       [module_id (the archive.#output entry)]))
           (monad.mix ! (..write_module necessary_dependencies sequence) header)
           (# ! each (|>> scope
                          code
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux
index 8cf01011c..a5e907a52 100644
--- a/stdlib/source/library/lux/tool/interpreter.lux
+++ b/stdlib/source/library/lux/tool/interpreter.lux
@@ -1,33 +1,33 @@
 (.using
-  [library
-   [lux "*"
-    [control
-     [monad {"+" Monad do}]
-     ["[0]" try {"+" Try}]
-     ["ex" exception {"+" exception:}]]
-    [data
-     ["[0]" text ("[1]#[0]" equivalence)
-      ["%" format {"+" format}]]]
-    [type {"+" :sharing}
-     ["[0]" check]]
-    [compiler
-     ["[0]" phase
-      ["[0]" analysis
-       ["[0]" module]
-       ["[0]" type]]
-      ["[0]" generation]
-      ["[0]" directive {"+" State+ Operation}
-       ["[0]" total]]
-      ["[0]" extension]]
-     ["[0]" default
-      ["[0]" syntax]
-      ["[0]" platform {"+" Platform}]
-      ["[0]" init]]
-     ["[0]" cli {"+" Configuration}]]
-    [world
-     ["[0]" file {"+" File}]
-     ["[0]" console {"+" Console}]]]]
-  ["[0]" /type])
+ [library
+  [lux "*"
+   [control
+    [monad {"+" Monad do}]
+    ["[0]" try {"+" Try}]
+    ["ex" exception {"+" exception:}]]
+   [data
+    ["[0]" text ("[1]#[0]" equivalence)
+     ["%" format {"+" format}]]]
+   [type {"+" :sharing}
+    ["[0]" check]]
+   [compiler
+    ["[0]" phase
+     ["[0]" analysis
+      ["[0]" module]
+      ["[0]" type]]
+     ["[0]" generation]
+     ["[0]" directive {"+" State+ Operation}
+      ["[0]" total]]
+     ["[0]" extension]]
+    ["[0]" default
+     ["[0]" syntax]
+     ["[0]" platform {"+" Platform}]
+     ["[0]" init]]
+    ["[0]" cli {"+" Configuration}]]
+   [world
+    ["[0]" file {"+" File}]
+    ["[0]" console {"+" Console}]]]]
+ ["[0]" /type])
 
 (exception: .public (error [message Text])
   message)
@@ -75,14 +75,14 @@
   (do Monad<!>
     [state (platform.initialize platform generation_bundle)
      state (platform.compile platform
-                             (with@ cli.#module syntax.prelude configuration)
-                             (with@ [extension.#state
-                                     directive.#analysis directive.#state
-                                     extension.#state
-                                     .#info .#mode]
-                                    {.#Interpreter}
-                                    state))
-     [state _] (# (value@ platform.#file_system platform)
+                             (has cli.#module syntax.prelude configuration)
+                             (has [extension.#state
+                                   directive.#analysis directive.#state
+                                   extension.#state
+                                   .#info .#mode]
+                                  {.#Interpreter}
+                                  state))
+     [state _] (# (the platform.#file_system platform)
                   lift (phase.result' state enter_module))
      _ (# Console<!> write ..welcome_message)]
     (in state)))
@@ -102,9 +102,9 @@
       (-> Code <Interpretation>))
     (do [! phase.monad]
       [state (extension.lifted phase.state)
-       .let [analyse (value@ [directive.#analysis directive.#phase] state)
-             synthesize (value@ [directive.#synthesis directive.#phase] state)
-             generate (value@ [directive.#generation directive.#phase] state)]
+       .let [analyse (the [directive.#analysis directive.#phase] state)
+             synthesize (the [directive.#synthesis directive.#phase] state)
+             generate (the [directive.#generation directive.#phase] state)]
        [_ codeT codeA] (directive.lifted_analysis
                         (analysis.with_scope
                           (type.with_fresh_env
@@ -156,10 +156,10 @@
   (do phase.monad
     [[codeT codeV] (interpret configuration code)
      state phase.state]
-    (in (/type.represent (value@ [extension.#state
-                                  directive.#analysis directive.#state
-                                  extension.#state]
-                                 state)
+    (in (/type.represent (the [extension.#state
+                               directive.#analysis directive.#state
+                               extension.#state]
+                              state)
                          codeT
                          codeV))))
 
@@ -174,15 +174,15 @@
     (All (_ anchor expression directive)
       (-> <Context> (Try [<Context> Text])))
     (do try.monad
-      [.let [[_where _offset _code] (value@ #source context)]
-       [source' input] (syntax.parse ..module syntax.no_aliases (text.size _code) (value@ #source context))
+      [.let [[_where _offset _code] (the #source context)]
+       [source' input] (syntax.parse ..module syntax.no_aliases (text.size _code) (the #source context))
        [state' representation] (let [... TODO: Simplify ASAP
                                      state (:sharing [anchor expression directive]
                                                      <Context>
                                                      context
                                                      
                                                      (State+ anchor expression directive)
-                                                     (value@ #state context))]
+                                                     (the #state context))]
                                  (<| (phase.result' state)
                                      ... TODO: Simplify ASAP
                                      (:sharing [anchor expression directive]
@@ -190,10 +190,10 @@
                                                context
                                                
                                                (Operation anchor expression directive Text)
-                                               (execute (value@ #configuration context) input))))]
+                                               (execute (the #configuration context) input))))]
       (in [(|> context
-               (with@ #state state')
-               (with@ #source source'))
+               (has #state state')
+               (has #source source'))
            representation]))))
 
 (def: .public (run! Monad<!> Console<!> platform configuration generation_bundle)
@@ -217,7 +217,7 @@
         (if (and (not multi_line?)
                  (text#= ..exit_command line))
           (# Console<!> write ..farewell_message)
-          (case (read_eval_print (revised@ #source (add_line line) context))
+          (case (read_eval_print (revised #source (add_line line) context))
             {try.#Success [context' representation]}
             (do !
               [_ (# Console<!> write representation)]
@@ -227,5 +227,5 @@
             (if (ex.match? syntax.end_of_file error)
               (again context #1)
               (exec (log! (ex.error ..error error))
-                (again (with@ #source ..fresh_source context) #0))))))
+                (again (has #source ..fresh_source context) #0))))))
       )))
diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux
index ac81fe26b..cd1aaa867 100644
--- a/stdlib/source/library/lux/type.lux
+++ b/stdlib/source/library/lux/type.lux
@@ -447,12 +447,12 @@
                             computation ..typed])
   (macro.with_symbols [g!_]
     (let [typeC (` (All ((~ g!_) (~+ (list#each code.local_symbol type_vars)))
-                     (-> (~ (value@ #type exemplar))
-                         (~ (value@ #type computation)))))
+                     (-> (~ (the #type exemplar))
+                         (~ (the #type computation)))))
           shareC (` (: (~ typeC)
                        (.function ((~ g!_) (~ g!_))
-                         (~ (value@ #expression computation)))))]
-      (in (list (` ((~ shareC) (~ (value@ #expression exemplar)))))))))
+                         (~ (the #expression computation)))))]
+      (in (list (` ((~ shareC) (~ (the #expression exemplar)))))))))
 
 (syntax: .public (:by_example [type_vars ..type_parameters
                                exemplar ..typed
@@ -460,8 +460,8 @@
   (in (list (` (:of ((~! ..:sharing)
                      [(~+ (list#each code.local_symbol type_vars))]
 
-                     (~ (value@ #type exemplar))
-                     (~ (value@ #expression exemplar))
+                     (~ (the #type exemplar))
+                     (~ (the #expression exemplar))
                      
                      (~ extraction)
                      ... The value of this expression will never be relevant, so it doesn't matter what it is.
diff --git a/stdlib/source/library/lux/type/abstract.lux b/stdlib/source/library/lux/type/abstract.lux
index f70175de2..77ca88bee 100644
--- a/stdlib/source/library/lux/type/abstract.lux
+++ b/stdlib/source/library/lux/type/abstract.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" meta]
-    [abstract
-     [monad {"+" Monad do}]]
-    [control
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser ("[1]#[0]" monad)
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" text ("[1]#[0]" equivalence monoid)]
-     [collection
-      ["[0]" list ("[1]#[0]" functor monoid)]]]
-    [macro
-     ["[0]" code]
-     [syntax {"+" syntax:}
-      ["|[0]|" export]]]
-    [meta
-     ["[0]" symbol ("[1]#[0]" codec)]]]]
-  ["[0]" //])
+ [library
+  [lux "*"
+   ["[0]" meta]
+   [abstract
+    [monad {"+" Monad do}]]
+   [control
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser ("[1]#[0]" monad)
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" text ("[1]#[0]" equivalence monoid)]
+    [collection
+     ["[0]" list ("[1]#[0]" functor monoid)]]]
+   [macro
+    ["[0]" code]
+    [syntax {"+" syntax:}
+     ["|[0]|" export]]]
+   [meta
+    ["[0]" symbol ("[1]#[0]" codec)]]]]
+ ["[0]" //])
 
 (type: Stack
   List)
@@ -73,7 +73,7 @@
 (def: (peek_frames reference definition_reference source)
   (-> Text Text (List [Text Module]) (Stack Frame))
   (!peek source reference
-         (peek_frames_definition definition_reference (value@ .#definitions head))))
+         (peek_frames_definition definition_reference (the .#definitions head))))
 
 (exception: .public no_active_frames)
 
@@ -81,7 +81,7 @@
   (-> (Maybe Text) (Meta Frame))
   (function (_ compiler)
     (let [[reference definition_reference] (symbol ..frames)
-          current_frames (peek_frames reference definition_reference (value@ .#modules compiler))]
+          current_frames (peek_frames reference definition_reference (the .#modules compiler))]
       (case (case frame
               {.#Some frame}
               (list.example (function (_ [actual _])
@@ -135,14 +135,14 @@
 (def: (push_frame [module_reference definition_reference] frame source)
   (-> Symbol Frame (List [Text Module]) (List [Text Module]))
   (!push source module_reference
-         (revised@ .#definitions (push_frame_definition definition_reference frame) head)))
+         (revised .#definitions (push_frame_definition definition_reference frame) head)))
 
 (def: (push! frame)
   (-> Frame (Meta Any))
   (function (_ compiler)
-    {.#Right [(revised@ .#modules
-                        (..push_frame (symbol ..frames) frame)
-                        compiler)
+    {.#Right [(revised .#modules
+                       (..push_frame (symbol ..frames) frame)
+                       compiler)
               []]}))
 
 (def: (pop_frame_definition reference source)
@@ -169,13 +169,13 @@
 (def: (pop_frame [module_reference definition_reference] source)
   (-> Symbol (List [Text Module]) (List [Text Module]))
   (!push source module_reference
-         (|> head (revised@ .#definitions (pop_frame_definition definition_reference)))))
+         (|> head (revised .#definitions (pop_frame_definition definition_reference)))))
 
 (syntax: (pop! [])
   (function (_ compiler)
-    {.#Right [(revised@ .#modules
-                        (..pop_frame (symbol ..frames))
-                        compiler)
+    {.#Right [(revised .#modules
+                       (..pop_frame (symbol ..frames))
+                       compiler)
               (list)]}))
 
 (def: cast
diff --git a/stdlib/source/library/lux/type/check.lux b/stdlib/source/library/lux/type/check.lux
index 785e321fb..e7ed19839 100644
--- a/stdlib/source/library/lux/type/check.lux
+++ b/stdlib/source/library/lux/type/check.lux
@@ -188,15 +188,15 @@
 (def: .public existential
   (Check [Nat Type])
   (function (_ context)
-    (let [id (value@ .#ex_counter context)]
-      {try.#Success [(revised@ .#ex_counter ++ context)
+    (let [id (the .#ex_counter context)]
+      {try.#Success [(revised .#ex_counter ++ context)
                      [id {.#Ex id}]]})))
 
 (template [<name> <outputT> <fail> <succeed>]
   [(def: .public (<name> id)
      (-> Var (Check <outputT>))
      (function (_ context)
-       (case (|> context (value@ .#var_bindings) (var::get id))
+       (case (|> context (the .#var_bindings) (var::get id))
          (^or {.#Some {.#Some {.#Var _}}}
               {.#Some {.#None}})
          {try.#Success [context <fail>]}
@@ -225,7 +225,7 @@
 (def: (bound id)
   (-> Var (Check Type))
   (function (_ context)
-    (case (|> context (value@ .#var_bindings) (var::get id))
+    (case (|> context (the .#var_bindings) (var::get id))
       {.#Some {.#Some bound}}
       {try.#Success [context bound]}
 
@@ -238,9 +238,9 @@
 (def: .public (bind type id)
   (-> Type Var (Check Any))
   (function (_ context)
-    (case (|> context (value@ .#var_bindings) (var::get id))
+    (case (|> context (the .#var_bindings) (var::get id))
       {.#Some {.#None}}
-      {try.#Success [(revised@ .#var_bindings (var::put id {.#Some type}) context)
+      {try.#Success [(revised .#var_bindings (var::put id {.#Some type}) context)
                      []]}
 
       {.#Some {.#Some bound}}
@@ -252,9 +252,9 @@
 (def: (re_bind' ?type id)
   (-> (Maybe Type) Var (Check Any))
   (function (_ context)
-    (case (|> context (value@ .#var_bindings) (var::get id))
+    (case (|> context (the .#var_bindings) (var::get id))
       {.#Some _}
-      {try.#Success [(revised@ .#var_bindings (var::put id ?type) context)
+      {try.#Success [(revised .#var_bindings (var::put id ?type) context)
                      []]}
       
       _
@@ -267,10 +267,10 @@
 (def: .public var
   (Check [Var Type])
   (function (_ context)
-    (let [id (value@ .#var_counter context)]
+    (let [id (the .#var_counter context)]
       {try.#Success [(|> context
-                         (revised@ .#var_counter ++)
-                         (revised@ .#var_bindings (var::new id)))
+                         (revised .#var_counter ++)
+                         (revised .#var_bindings (var::new id)))
                      [id {.#Var id}]]})))
 
 (def: (on argT funcT)
@@ -304,7 +304,7 @@
   (function (_ context)
     (loop [current start
            output (list start)]
-      (case (|> context (value@ .#var_bindings) (var::get current))
+      (case (|> context (the .#var_bindings) (var::get current))
         {.#Some {.#Some type}}
         (case type
           {.#Var next}
@@ -363,19 +363,19 @@
 (def: (erase! @)
   (-> Var (Check Any))
   (function (_ context)
-    {try.#Success [(revised@ .#var_bindings
-                             (list#mix (: (:let [binding [Nat (Maybe Type)]]
-                                            (-> binding
-                                                (List binding)
-                                                (List binding)))
-                                          (function (_ in out)
-                                            (let [[@var :var:] in]
-                                              (if (n.= @ @var)
-                                                out
-                                                (list& in out)))))
-                                       (: (List [Nat (Maybe Type)])
-                                          (list)))
-                             context)
+    {try.#Success [(revised .#var_bindings
+                            (list#mix (: (:let [binding [Nat (Maybe Type)]]
+                                           (-> binding
+                                               (List binding)
+                                               (List binding)))
+                                         (function (_ in out)
+                                           (let [[@var :var:] in]
+                                             (if (n.= @ @var)
+                                               out
+                                               (list& in out)))))
+                                      (: (List [Nat (Maybe Type)])
+                                         (list)))
+                            context)
                    []]}))
 
 (def: .public (forget! @)
diff --git a/stdlib/source/library/lux/type/implicit.lux b/stdlib/source/library/lux/type/implicit.lux
index bd4ac94b0..25678f37a 100644
--- a/stdlib/source/library/lux/type/implicit.lux
+++ b/stdlib/source/library/lux/type/implicit.lux
@@ -1,35 +1,35 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     ["[0]" monad {"+" do}]
-     ["[0]" equivalence]]
-    [control
-     ["[0]" maybe]
-     ["[0]" try]
-     ["<>" parser
-      ["<[0]>" code {"+" Parser}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text ("[1]#[0]" equivalence)
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" monad mix)]
-      ["[0]" dictionary {"+" Dictionary}]]]
-    ["[0]" macro
-     ["[0]" code]
-     [syntax {"+" syntax:}]]
-    [math
-     ["[0]" number
-      ["n" nat]]]
-    ["[0]" meta]
-    ["[0]" type ("[1]#[0]" equivalence)
-     ["[0]" check {"+" Check}]]]])
+ [library
+  [lux "*"
+   [abstract
+    ["[0]" monad {"+" do}]
+    ["[0]" equivalence]]
+   [control
+    ["[0]" maybe]
+    ["[0]" try]
+    ["<>" parser
+     ["<[0]>" code {"+" Parser}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text ("[1]#[0]" equivalence)
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" monad mix)]
+     ["[0]" dictionary {"+" Dictionary}]]]
+   ["[0]" macro
+    ["[0]" code]
+    [syntax {"+" syntax:}]]
+   [math
+    ["[0]" number
+     ["n" nat]]]
+   ["[0]" meta]
+   ["[0]" type ("[1]#[0]" equivalence)
+    ["[0]" check {"+" Check}]]]])
 
 (def: (type_var id env)
   (-> Nat Type_Context (Meta Type))
   (case (list.example (|>> product.left (n.= id))
-                      (value@ .#var_bindings env))
+                      (the .#var_bindings env))
     {.#Some [_ {.#Some type}]}
     (case type
       {.#Var id'}
@@ -52,7 +52,7 @@
      compiler meta.compiler_state]
     (case raw_type
       {.#Var id}
-      (type_var id (value@ .#type_context compiler))
+      (type_var id (the .#type_context compiler))
 
       _
       (in raw_type))))
diff --git a/stdlib/source/library/lux/type/quotient.lux b/stdlib/source/library/lux/type/quotient.lux
index b43d5035e..591734219 100644
--- a/stdlib/source/library/lux/type/quotient.lux
+++ b/stdlib/source/library/lux/type/quotient.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux {"-" type}
-    [abstract
-     [equivalence {"+" Equivalence}]]
-    [control
-     [parser
-      ["<[0]>" code]]]
-    [macro {"+" with_symbols}
-     [syntax {"+" syntax:}]]
-    ["[0]" type
-     abstract]]])
+ [library
+  [lux {"-" type}
+   [abstract
+    [equivalence {"+" Equivalence}]]
+   [control
+    [parser
+     ["<[0]>" code]]]
+   [macro {"+" with_symbols}
+    [syntax {"+" syntax:}]]
+   ["[0]" type
+    abstract]]])
 
 (abstract: .public (Class t c %)
   (-> t c)
@@ -35,7 +35,7 @@
     (template [<name> <output> <slot>]
       [(def: .public <name>
          (All (_ t c %) (-> (Quotient t c %) <output>))
-         (|>> :representation (value@ <slot>)))]
+         (|>> :representation (the <slot>)))]
 
       [value t #value]
       [label c #label]
diff --git a/stdlib/source/library/lux/type/refinement.lux b/stdlib/source/library/lux/type/refinement.lux
index 194a63b2d..df4fc8d3c 100644
--- a/stdlib/source/library/lux/type/refinement.lux
+++ b/stdlib/source/library/lux/type/refinement.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux {"-" type}
-    [abstract
-     [predicate {"+" Predicate}]]
-    [control
-     [parser
-      ["<[0]>" code]]]
-    ["[0]" macro
-     [syntax {"+" syntax:}]]
-    ["[0]" type
-     abstract]]])
+ [library
+  [lux {"-" type}
+   [abstract
+    [predicate {"+" Predicate}]]
+   [control
+    [parser
+     ["<[0]>" code]]]
+   ["[0]" macro
+    [syntax {"+" syntax:}]]
+   ["[0]" type
+    abstract]]])
 
 (abstract: .public (Refined t %)
   (Record
@@ -32,7 +32,7 @@
   (template [<name> <output> <slot>]
     [(def: .public <name>
        (All (_ t %) (-> (Refined t %) <output>))
-       (|>> :representation (value@ <slot>)))]
+       (|>> :representation (the <slot>)))]
 
     [value     t             #value]
     [predicate (Predicate t) #predicate]
diff --git a/stdlib/source/library/lux/world/db/jdbc.lux b/stdlib/source/library/lux/world/db/jdbc.lux
index beb4d8bce..25a29b3b3 100644
--- a/stdlib/source/library/lux/world/db/jdbc.lux
+++ b/stdlib/source/library/lux/world/db/jdbc.lux
@@ -1,29 +1,29 @@
 (.using
-  [library
-   [lux {"-" and int}
-    [control
-     [functor {"+" Functor}]
-     [apply {"+" Apply}]
-     [monad {"+" Monad do}]
-     ["[0]" try {"+" Try}]
-     ["ex" exception]
-     [concurrency
-      ["[0]" async {"+" Async} ("[1]#[0]" monad)]]
-     [security
-      ["!" capability {"+" capability:}]]]
-    [data
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]]
-    ["[0]" io {"+" IO}]
-    [world
-     [net {"+" URL}]]
-    [host {"+" import:}]]]
-  [//
-   ["[0]" sql]]
-  ["[0]" / "_"
-   ["[1][0]" input {"+" Input}]
-   ["[1][0]" output {"+" Output}]])
+ [library
+  [lux {"-" and int}
+   [control
+    [functor {"+" Functor}]
+    [apply {"+" Apply}]
+    [monad {"+" Monad do}]
+    ["[0]" try {"+" Try}]
+    ["ex" exception]
+    [concurrency
+     ["[0]" async {"+" Async} ("[1]#[0]" monad)]]
+    [security
+     ["!" capability {"+" capability:}]]]
+   [data
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]]
+   ["[0]" io {"+" IO}]
+   [world
+    [net {"+" URL}]]
+   [host {"+" import:}]]]
+ [//
+  ["[0]" sql]]
+ ["[0]" / "_"
+  ["[1][0]" input {"+" Input}]
+  ["[1][0]" output {"+" Output}]])
 
 (import: java/lang/String)
 
@@ -96,10 +96,10 @@
         (-> java/sql/PreparedStatement (IO (Try a)))
         (IO (Try a))))
   (do (try.with io.monad)
-    [prepared (io.io (java/sql/Connection::prepareStatement (sql.sql (value@ #sql statement))
+    [prepared (io.io (java/sql/Connection::prepareStatement (sql.sql (the #sql statement))
                                                             (java/sql/Statement::RETURN_GENERATED_KEYS)
                                                             conn))
-     _ (io.io ((value@ #input statement) (value@ #value statement) [1 prepared]))
+     _ (io.io ((the #input statement) (the #value statement) [1 prepared]))
      result (action prepared)
      _ (java/sql/Statement::close prepared)]
     (in result)))
@@ -118,9 +118,9 @@
 (def: .public (connect creds)
   (-> Credentials (IO (Try (DB IO))))
   (do (try.with io.monad)
-    [connection (java/sql/DriverManager::getConnection (value@ #url creds)
-                                                       (value@ #user creds)
-                                                       (value@ #password creds))]
+    [connection (java/sql/DriverManager::getConnection (the #url creds)
+                                                       (the #user creds)
+                                                       (the #password creds))]
     (in (: (DB IO)
            (implementation
             (def: execute
diff --git a/stdlib/source/library/lux/world/file.lux b/stdlib/source/library/lux/world/file.lux
index cf1a5fc83..aa1598254 100644
--- a/stdlib/source/library/lux/world/file.lux
+++ b/stdlib/source/library/lux/world/file.lux
@@ -1026,8 +1026,8 @@
           [{.#Left file} {.#End}]
           {try.#Success (dictionary.has head
                                         {.#Left (|> file
-                                                    (with@ #mock_last_modified now)
-                                                    (with@ #mock_content content))}
+                                                    (has #mock_last_modified now)
+                                                    (has #mock_content content))}
                                         directory)}
 
           [{.#Right sub_directory} {.#Item _}]
@@ -1204,7 +1204,7 @@
               (in (|> |store|
                       (..retrieve_mock_file! separator path)
                       (try#each (|>> product.right
-                                     (value@ #mock_content)
+                                     (the #mock_content)
                                      binary.size)))))))
 
          (def: (last_modified path)
@@ -1214,7 +1214,7 @@
               (in (|> |store|
                       (..retrieve_mock_file! separator path)
                       (try#each (|>> product.right
-                                     (value@ #mock_last_modified))))))))
+                                     (the #mock_last_modified))))))))
 
          (def: (can_execute? path)
            (stm.commit!
@@ -1223,7 +1223,7 @@
               (in (|> |store|
                       (..retrieve_mock_file! separator path)
                       (try#each (|>> product.right
-                                     (value@ #mock_can_execute))))))))
+                                     (the #mock_can_execute))))))))
 
          (def: (read path)
            (stm.commit!
@@ -1232,7 +1232,7 @@
               (in (|> |store|
                       (..retrieve_mock_file! separator path)
                       (try#each (|>> product.right
-                                     (value@ #mock_content))))))))
+                                     (the #mock_content))))))))
 
          (def: (delete path)
            (stm.commit!
@@ -1243,7 +1243,7 @@
             (..attempt! (function (_ |store|)
                           (do try.monad
                             [[name file] (..retrieve_mock_file! separator path |store|)]
-                            (..update_mock_file! separator path now (value@ #mock_content file) |store|)))
+                            (..update_mock_file! separator path now (the #mock_content file) |store|)))
                         store)))
 
          (def: (write content path)
@@ -1261,7 +1261,7 @@
                               [[name file] (..retrieve_mock_file! separator path |store|)]
                               (..update_mock_file! separator path now
                                                    (# binary.monoid composite
-                                                      (value@ #mock_content file)
+                                                      (the #mock_content file)
                                                       content)
                                                    |store|)))
                           store))))
@@ -1273,7 +1273,7 @@
               (case (do try.monad
                       [[name file] (..retrieve_mock_file! separator origin |store|)
                        |store| (..delete_mock_node! separator origin |store|)]
-                      (..update_mock_file! separator destination (value@ #mock_last_modified file) (value@ #mock_content file) |store|))
+                      (..update_mock_file! separator destination (the #mock_last_modified file) (the #mock_content file) |store|))
                 {try.#Success |store|}
                 (do !
                   [_ (stm.write |store| store)]
diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux
index c26923c54..5ad94c22e 100644
--- a/stdlib/source/library/lux/world/file/watch.lux
+++ b/stdlib/source/library/lux/world/file/watch.lux
@@ -1,36 +1,36 @@
 (.using
-  [library
-   [lux "*"
-    ["@" target]
-    ["[0]" ffi {"+" import:}]
-    [abstract
-     [predicate {"+" Predicate}]
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" io {"+" IO}]
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     [concurrency
-      ["[0]" async {"+" Async}]
-      ["[0]" stm {"+" STM Var}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" dictionary {"+" Dictionary}]
-      ["[0]" list ("[1]#[0]" functor monoid mix)]
-      ["[0]" set]
-      ["[0]" array]]]
-    [math
-     [number
-      ["n" nat]]]
-    [time
-     ["[0]" instant {"+" Instant} ("[1]#[0]" equivalence)]]
-    [type
-     [abstract {"+" abstract: :representation :abstraction}]]]]
-  ["[0]" //])
+ [library
+  [lux "*"
+   ["@" target]
+   ["[0]" ffi {"+" import:}]
+   [abstract
+    [predicate {"+" Predicate}]
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" io {"+" IO}]
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    [concurrency
+     ["[0]" async {"+" Async}]
+     ["[0]" stm {"+" STM Var}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" dictionary {"+" Dictionary}]
+     ["[0]" list ("[1]#[0]" functor monoid mix)]
+     ["[0]" set]
+     ["[0]" array]]]
+   [math
+    [number
+     ["n" nat]]]
+   [time
+    ["[0]" instant {"+" Instant} ("[1]#[0]" equivalence)]]
+   [type
+    [abstract {"+" abstract: :representation :abstraction}]]]]
+ ["[0]" //])
 
 (abstract: .public Concern
   (Record
@@ -55,7 +55,7 @@
 
      (def: .public <predicate>
        (Predicate Concern)
-       (|>> :representation (value@ <event>)))]
+       (|>> :representation (the <event>)))]
 
     [creation creation? #creation
      true false false]
diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux
index 9dd11a62f..85e9c2cbd 100644
--- a/stdlib/source/library/lux/world/net/http/client.lux
+++ b/stdlib/source/library/lux/world/net/http/client.lux
@@ -1,34 +1,34 @@
 (.using
-  [library
-   [lux "*"
-    ["@" target]
-    ["[0]" ffi]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     [pipe {"+" case>}]
-     ["[0]" io {"+" IO}]
-     ["[0]" maybe ("[1]#[0]" functor)]
-     ["[0]" try {"+" Try}]
-     [concurrency
-      ["[0]" async {"+" Async}]]
-     [parser
-      ["<[0]>" code]]]
-    [data
-     ["[0]" binary {"+" Binary}]
-     ["[0]" text]
-     [collection
-      ["[0]" dictionary]]]
-    [macro
-     [syntax {"+" syntax:}]
-     ["[0]" code]
-     ["[0]" template]]
-    [math
-     [number
-      ["n" nat]
-      ["i" int]]]]]
-  ["[0]" //
-   [// {"+" URL}]])
+ [library
+  [lux "*"
+   ["@" target]
+   ["[0]" ffi]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    [pipe {"+" case>}]
+    ["[0]" io {"+" IO}]
+    ["[0]" maybe ("[1]#[0]" functor)]
+    ["[0]" try {"+" Try}]
+    [concurrency
+     ["[0]" async {"+" Async}]]
+    [parser
+     ["<[0]>" code]]]
+   [data
+    ["[0]" binary {"+" Binary}]
+    ["[0]" text]
+    [collection
+     ["[0]" dictionary]]]
+   [macro
+    [syntax {"+" syntax:}]
+    ["[0]" code]
+    ["[0]" template]]
+   [math
+    [number
+     ["n" nat]
+     ["i" int]]]]]
+ ["[0]" //
+  [// {"+" URL}]])
 
 (type: .public (Client !)
   (Interface
@@ -227,10 +227,10 @@
         async.future
         (# async.monad each
            (|>> (case> {try.#Success [status message]}
-                       {try.#Success [status (revised@ //.#body (: (-> (//.Body IO) (//.Body Async))
-                                                                   (function (_ body)
-                                                                     (|>> body async.future)))
-                                                       message)]}
+                       {try.#Success [status (revised //.#body (: (-> (//.Body IO) (//.Body Async))
+                                                                  (function (_ body)
+                                                                    (|>> body async.future)))
+                                                      message)]}
                        
                        {try.#Failure error}
                        {try.#Failure error}))))))
diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux
index 6bc72ff50..a7a29eaca 100644
--- a/stdlib/source/library/lux/world/net/http/request.lux
+++ b/stdlib/source/library/lux/world/net/http/request.lux
@@ -1,33 +1,33 @@
 (.using
-  [library
-   [lux "*"
-    [control
-     pipe
-     ["[0]" monad {"+" do}]
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     [concurrency
-      ["[0]" async {"+" Async}]
-      ["[0]" frp]]
-     [parser
-      ["<[0]>" json]]]
-    [data
-     ["[0]" number
-      ["n" nat]]
-     ["[0]" text
-      ["[0]" encoding]]
-     [format
-      ["[0]" json {"+" JSON}]
-      ["[0]" context {"+" Context Property}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]
-      ["[0]" dictionary]]]
-    [world
-     ["[0]" binary {"+" Binary}]]]]
-  ["[0]" // {"+" Body Response Server}
-   ["[1][0]" response]
-   ["[1][0]" query]
-   ["[1][0]" cookie]])
+ [library
+  [lux "*"
+   [control
+    pipe
+    ["[0]" monad {"+" do}]
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    [concurrency
+     ["[0]" async {"+" Async}]
+     ["[0]" frp]]
+    [parser
+     ["<[0]>" json]]]
+   [data
+    ["[0]" number
+     ["n" nat]]
+    ["[0]" text
+     ["[0]" encoding]]
+    [format
+     ["[0]" json {"+" JSON}]
+     ["[0]" context {"+" Context Property}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]
+     ["[0]" dictionary]]]
+   [world
+    ["[0]" binary {"+" Binary}]]]]
+ ["[0]" // {"+" Body Response Server}
+  ["[1][0]" response]
+  ["[1][0]" query]
+  ["[1][0]" cookie]])
 
 (def: (merge inputs)
   (-> (List Binary) Binary)
@@ -54,9 +54,9 @@
 
 (def: .public (json reader server)
   (All (_ a) (-> (<json>.Reader a) (-> a Server) Server))
-  (function (_ (^@ request [identification protocol resource message]))
+  (function (_ (^let request [identification protocol resource message]))
     (do async.monad
-      [?raw (read_text_body (value@ //.#body message))]
+      [?raw (read_text_body (the //.#body message))]
       (case (do try.monad
               [raw ?raw
                content (# json.codec decoded raw)]
@@ -69,9 +69,9 @@
 
 (def: .public (text server)
   (-> (-> Text Server) Server)
-  (function (_ (^@ request [identification protocol resource message]))
+  (function (_ (^let request [identification protocol resource message]))
     (do async.monad
-      [?raw (read_text_body (value@ //.#body message))]
+      [?raw (read_text_body (the //.#body message))]
       (case ?raw
         {try.#Success content}
         (server content request)
@@ -82,14 +82,14 @@
 (def: .public (query property server)
   (All (_ a) (-> (Property a) (-> a Server) Server))
   (function (_ [identification protocol resource message])
-    (let [full (value@ //.#uri resource)
+    (let [full (the //.#uri resource)
           [uri query] (|> full
                           (text.split_by "?")
                           (maybe.else [full ""]))]
       (case (do try.monad
               [query (//query.parameters query)
                input (context.result query property)]
-              (in [[identification protocol (with@ //.#uri uri resource) message]
+              (in [[identification protocol (has //.#uri uri resource) message]
                    input]))
         {try.#Success [request input]}
         (server input request)
@@ -99,9 +99,9 @@
 
 (def: .public (form property server)
   (All (_ a) (-> (Property a) (-> a Server) Server))
-  (function (_ (^@ request [identification protocol resource message]))
+  (function (_ (^let request [identification protocol resource message]))
     (do async.monad
-      [?body (read_text_body (value@ //.#body message))]
+      [?body (read_text_body (the //.#body message))]
       (case (do try.monad
               [body ?body
                form (//query.parameters body)]
@@ -114,9 +114,9 @@
 
 (def: .public (cookies property server)
   (All (_ a) (-> (Property a) (-> a Server) Server))
-  (function (_ (^@ request [identification protocol resource message]))
+  (function (_ (^let request [identification protocol resource message]))
     (case (do try.monad
-            [cookies (|> (value@ //.#headers message)
+            [cookies (|> (the //.#headers message)
                          (dictionary.value "Cookie")
                          (maybe.else "")
                          //cookie.get)]
diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux
index b19571a45..eeb67bcde 100644
--- a/stdlib/source/library/lux/world/net/http/response.lux
+++ b/stdlib/source/library/lux/world/net/http/response.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux {"-" static}
-    [control
-     [concurrency
-      ["[0]" async]
-      ["[0]" frp ("[1]#[0]" monad)]]]
-    [data
-     ["[0]" text
-      ["[0]" encoding]]
-     [format
-      ["[0]" html]
-      ["[0]" css {"+" CSS}]
-      ["[0]" context]
-      ["[0]" json {"+" JSON} ("[1]#[0]" codec)]]]
-    ["[0]" io]
-    [world
-     ["[0]" binary {"+" Binary}]]]]
-  ["[0]" // {"+" Status Body Response Server}
-   ["[0]" status]
-   ["[0]" mime {"+" MIME}]
-   ["[0]" header]
-   [// {"+" URL}]])
+ [library
+  [lux {"-" static}
+   [control
+    [concurrency
+     ["[0]" async]
+     ["[0]" frp ("[1]#[0]" monad)]]]
+   [data
+    ["[0]" text
+     ["[0]" encoding]]
+    [format
+     ["[0]" html]
+     ["[0]" css {"+" CSS}]
+     ["[0]" context]
+     ["[0]" json {"+" JSON} ("[1]#[0]" codec)]]]
+   ["[0]" io]
+   [world
+    ["[0]" binary {"+" Binary}]]]]
+ ["[0]" // {"+" Status Body Response Server}
+  ["[0]" status]
+  ["[0]" mime {"+" MIME}]
+  ["[0]" header]
+  [// {"+" URL}]])
 
 (def: .public (static response)
   (-> Response Server)
@@ -40,7 +40,7 @@
 (def: .public (temporary_redirect to)
   (-> URL Response)
   (let [[status message] (..empty status.temporary_redirect)]
-    [status (revised@ //.#headers (header.location to) message)]))
+    [status (revised //.#headers (header.location to) message)]))
 
 (def: .public not_found
   Response
diff --git a/stdlib/source/library/lux/world/net/http/route.lux b/stdlib/source/library/lux/world/net/http/route.lux
index 9da7710ac..e882c126c 100644
--- a/stdlib/source/library/lux/world/net/http/route.lux
+++ b/stdlib/source/library/lux/world/net/http/route.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux {"-" or}
-    [control
-     [monad {"+" do}]
-     ["[0]" maybe]
-     [concurrency
-      ["[0]" async]]]
-    [data
-     ["[0]" text]
-     [number
-      ["n" nat]]]]]
-  ["[0]" // {"+" URI Server}
-   ["[1][0]" status]
-   ["[1][0]" response]])
+ [library
+  [lux {"-" or}
+   [control
+    [monad {"+" do}]
+    ["[0]" maybe]
+    [concurrency
+     ["[0]" async]]]
+   [data
+    ["[0]" text]
+    [number
+     ["n" nat]]]]]
+ ["[0]" // {"+" URI Server}
+  ["[1][0]" status]
+  ["[1][0]" response]])
 
 (template [<scheme> <name>]
   [(def: .public (<name> server)
      (-> Server Server)
-     (function (_ (^@ request [identification protocol resource message]))
-       (case (value@ //.#scheme protocol)
+     (function (_ (^let request [identification protocol resource message]))
+       (case (the //.#scheme protocol)
          {<scheme>}
          (server request)
 
@@ -32,8 +32,8 @@
 (template [<method> <name>]
   [(def: .public (<name> server)
      (-> Server Server)
-     (function (_ (^@ request [identification protocol resource message]))
-       (case (value@ //.#method resource)
+     (function (_ (^let request [identification protocol resource message]))
+       (case (the //.#method resource)
          {<method>}
          (server request)
 
@@ -54,12 +54,12 @@
 (def: .public (uri path server)
   (-> URI Server Server)
   (function (_ [identification protocol resource message])
-    (if (text.starts_with? path (value@ //.#uri resource))
+    (if (text.starts_with? path (the //.#uri resource))
       (server [identification
                protocol
-               (revised@ //.#uri
-                         (|>> (text.clip_since (text.size path)) maybe.trusted)
-                         resource)
+               (revised //.#uri
+                        (|>> (text.clip_since (text.size path)) maybe.trusted)
+                        resource)
                message])
       (async.resolved //response.not_found))))
 
diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux
index 7ec1fbd68..cb3c96f19 100644
--- a/stdlib/source/library/lux/world/program.lux
+++ b/stdlib/source/library/lux/world/program.lux
@@ -24,7 +24,8 @@
                ["[0]" dictionary {"+" Dictionary}]
                ["[0]" list ("[1]#[0]" functor)]]]
              ["[0]" ffi {"+" import:}
-              (~~ (.for ["JavaScript" (~~ (.as_is ["[0]" node_js]))]
+              (~~ (.for ["JavaScript" (~~ (.as_is ["[0]" node_js]))
+                         "{old}" (~~ (.as_is ["node_js" //math]))]
                         (~~ (.as_is))))]
              ["[0]" macro
               ["[0]" template]]