: window-columns ( -- )
    nl
    listener-get -> frame size>> w>>
    get-listener gadget-font-size /i
    iota [ 10 mod number>string write ] each
    nl
;