[ default: getc
  [ '~ = ] [ drop clear 0 ] when
] is getc