: DACTYLO ( ---)
  BEGIN
    KEY DUP EMIT
    ASCII $ =
  UNTIL ;