1#!/bin/rc 2 3id=`{cat /mnt/acme/new/ctl} 4id=$id(1) 5cmd = $* 6if(~ $#cmd 0) cmd = cat 7 8echo 'name '^`{pwd}^/-^`{basename $cmd(1)} > /mnt/acme/$id/ctl 9$cmd > /mnt/acme/$id/body 10echo clean > /mnt/acme/$id/ctl 11