: DACTYLO ( ---)
  BEGIN   KEY DUP ASCII $ <>
  WHILE   EMIT
  REPEAT  DROP ;