     (callback)))
 
 (defn reset-state []
-  (reset! state initial-state))
+  (swap! state assoc :application-info {:initialized? false}))
 
 (defn- later [f]
   (when f

       #(on-success response)))))

(defn unblock-pin
  [{:keys [puk on-success on-failure]}]
  (if (= puk (get @state :puk))
    (do
      (swap! state update :application-info assoc
             :pin-retry-counter 3
             :puk-retry-counter 5)
      (later #(on-success true)))
    (do
      (swap! state update-in

    (get-application-info args))
  (keycard/factory-reset [this args]
    (log/debug "simulated card factory-reset")
    (factory-reset args))
  (keycard/install-applet [this args]
    (log/debug "simulated card install-applet")
    (install-applet args))
