: main
  me @ "_randomsay" prop-exists? if
    "s"
    over "?" instr if
      pop "q"
    then
    over "!" instr if
      pop "x"
    then
    prog "_num" 3 pick strcat getpropstr
    atoi random swap % 1 + intostr
    "_format" rot strcat swap strcat
    prog swap getpropstr
    me @ "_sayformat" rot addprop
  then
  #137 call
;