Plan 9 from User Space's /usr/local/plan9/troff/font/devutf/mkMAP 

#!/bin/rc
grep '	' $* | awk '
$2 != "\"" {last = $4}
{printf("\t%s\t%s\n", $1, last)}
'

Space Glenda

Copyright © 2005 Lucent Technologies, Russ Cox, MIT.
See license for details.