* puff-proc
label(begin);
  %speech% cat(word(%astr%, 1), cat({ }, word(%astr%, 2)));
  %speech% cat(%speech%, {-- yourself?});
  %speech% cat({say }, %speech%); 
  wait(random(5,15));
  do(%speech%);
  wait(random(10,20));
  if ( less(random(1,100), 15), { do(shrug); }, { goto(end); } );
 
label(end);  
