: retrieve-field ( char -- string )
   1string
   "#" [ "test1" ] 2array
   "?" [ "test2" ] 2array
   "." [ "test3" ] 2array
   "-" [ "test4" ] 2array
   "@" [ "test5" ] 2array
   "+" [ "test6" ] 2array
   "s" [ "test7" ] 2array
   7 narray case ;