#!/bin/rc

rfork
cd 
bind -a /sys/src/cmd/4th .

tags=`{cat /mnt/acme/$winid/tag}
f=$tags(1)
while(! ~ $tags(1) 4t) tags = $tags(2-)
/bin/4th cqx $f $tags(2-)