: poseprg
  dup "" strcmp if
  dup 1 strcut pop
  "'?!.,"
  swap instr
    if me @ "D" flag? if "Someone" else me @ name then
    swap strcat
    else me @ "D" flag? if "Someone" else me @ name then
    " " strcat swap strcat then
  else me @ name then
  loc @ #-1 rot notify_except
;