tcheat >NIL:
if exists s:cleantestament
  testament.exe
  execute s:cleantestament
  delete >NIL: s:cleantestament
  quit
else
  quit
endif
