: DACTYLO ( ---)
  BEGIN KEY DUP CONTROL M =
    IF CR
    ELSE DUP EMIT
    THEN
    ASCII $ =
  UNTIL ;