ref: ae16de57e6157c784d2857813c400c7a7dcb857b
dir: /bin/r/
#!/bin/rc rfork e x=1 if(! ~ $#* 0) x=$1 awk -v 'x='^$x ' /^; /{ a[++n] = NR } END { cmd = a[n-x]","a[n-x+1]-1"d;"NR"d" system("sed \''" cmd "\'' /dev/text >/tmp/a; mv /tmp/a /dev/text") }' /dev/text