; frame, hpbar, minimap?, vertical hpbar?

(define (ui-frame xpos ypos length height style)
	(print (ansi-string-at xpos ypos (string-append
				  "\xDA jklm"
				(make-string (- length 2) #\xC4)
				  "\xBF")
	)
))

(define (char-test)(
	 (for f 33 255 (display (string (integer->char f))))
))