(flat:map [join (errsafe (world _))] (list (- row 1) (+ row 1) (- col 1) (+ col 1)))
But as far as I'm concerned, I've had enough help already. Should be able to take it from here.
-----