Completed it. Was really fun, thank you!

I wasn't sure how to chain function calls so had to look that up to implement movei, but apart from that was fairly straightforward (it's (do (<func1>) (<func2>) ...)).

My UI was pretty simple and ended up being

    (defn looki [] (display-html (look-html (look))))
    (defn movei [dir] (do (move dir) (looki)))
    (looki)
    (movei :south)
    (movei :east)
    (movei :north)
    (movei :south)
    (movei :west)
    (unlock-function :spoiler)
    (stack)
    (push :picture)
    (push :spoilers)
    (peek)
    (pop)
    (reset)