example/100_doors.pn: simplify. while=>to

print only open doors, and as lisp-like list