: gg-format ( int -- string ) number>string 4 CHAR: 0 pad-head ;