109
@verb #4000:"clear*" any any any rdo #4000
@program #4000:"clear*" any any any
player == this || one == two
if (verb == "clear")
  for x in [1..args ? toint(args[1]) | 100]
    force_input(player, tostr("clear", x))
  endfor
else
  player:tell()
endif
.

0