defi
a par &

startsin a
if exist stop del stop
:1
bft
solvsin a
if not exist stop goto 1

【Close】