: retrieve-field ( char -- field ) { { CHAR: @ [ ] } { CHAR: $ [ ] } .... } case ;