; boxing the compass
(define (compass d)
(define compass-points
'#(N NNE NE ENE E ESE SE SSE
S SSW SW WSW W WNW NW NNW))
(vector-ref compass-points
(modulo (inexact->exact (floor (/ (+ d 11.25) 22.5))) 16)))
(display (compass 70)) (newline)
(display (compass 230)) (newline)
OyBib3hpbmcgdGhlIGNvbXBhc3MKCihkZWZpbmUgKGNvbXBhc3MgZCkKICAoZGVmaW5lIGNvbXBhc3MtcG9pbnRzCiAgICAnIyhOIE5ORSBORSBFTkUgRSBFU0UgU0UgU1NFCiAgICAgICBTIFNTVyBTVyBXU1cgVyBXTlcgTlcgTk5XKSkKICAodmVjdG9yLXJlZiBjb21wYXNzLXBvaW50cwogICAgKG1vZHVsbyAoaW5leGFjdC0+ZXhhY3QgKGZsb29yICgvICgrIGQgMTEuMjUpIDIyLjUpKSkgMTYpKSkKCihkaXNwbGF5IChjb21wYXNzIDcwKSkgKG5ld2xpbmUpCihkaXNwbGF5IChjb21wYXNzIDIzMCkpIChuZXdsaW5lKQ==