: retrieve-field ( char -- field ) 1string symbol>> [ ] 2array symbol>> [ ] 2array symbol>> [ ] 2array symbol>> [ ] 2array symbol>> [ ] 2array symbol>> [ ] 2array symbol>> [ ] 2array 7 narray case ;