(loop [x :range [1 10] :let [square (* x x)] :until (> square 9) :before (print "before") :after (print "after") :repeat 2] (print (string "square: " square))) # before # square: 1 # square: 1 # after # before # square: 4 # square: 4 # after # before # square: 9 # square: 9 # after