define sears
forever
create clone of [myself v]
end

when I start as a clone
create clone of [myself v]
delete this clone

when green flag clicked
ask [You alone?] and wait
if <(answer) = [Yes, I am alone]> then 
say [Splendid! I'll let myself in!]
wait (4) secs
sears
  

else
say [It's your lucky day.]
wait (4) secs
say [I can hear someone whispering in there.]
wait (4) secs
stop [all v]
end