String width function, and example in sdl2-simple.lisp