   "Realizes a test context"
   [storage-spec input]
   (with-storage [s storage-spec]
-  (->> input
-      (realize-users s)
-      (realize-images s)
-      (realize-imports s)
-      (realize-entities s)
-      (realize-grants s)
-      (realize-commodities s)
-      (resolve-default-commodity-ids s)
-      (realize-accounts s)
-      (realize-prices s)
-      (realize-lots s)
-      (realize-budgets s)
-      (realize-transactions s)
-      (realize-attachments s)
-      (realize-reconciliations s))))
+    (-> input
+        (realize-users s)
+        (realize-images s)
+        (realize-imports s)
+        (realize-entities s)
+        (realize-grants s)
+        (realize-commodities s)
+        (resolve-default-commodity-ids s)
+        (realize-accounts s)
+        (realize-prices s)
+        (realize-lots s)
+        (realize-budgets s)
+        (realize-transactions s)
+        (realize-attachments s)
+        (realize-reconciliations s))))

       users))

(defn- realize-users
  [storage context]
  (update-in context [:users] #(create-users storage %)))

(defn- find-user

    (mapv #(create-account storage context %) account-list)))

(defn- realize-accounts
  [context storage]
  (update-in context [:accounts] #(create-accounts storage context %)))

(defn- find-account
