ref: bf645afaac246967b9590ae7463f243c11d97480
dir: /sys/src/cmd/upas/binscripts/tfmt.rc/
#!/bin/rc # anti-topposting defense # sed '/^[ ]*>[ ]*>[ ]*>/q' awk ' { if(l[i] ~ /^[ ]*>[ ]*>[ ]*>/) q = 1 if(q == 0) l[i = NR] = $0; } END{ for(; i > 1; i--) if(l[i] !~ /^([ ]*>)*[ ]*$/) break; for(; i > 1; i--) if(l[i] !~ /^[ ]*>[ ]*>/) break; for(; i > 1; i--) if(l[i] !~ /^([ ]*>)*[ ]*$/) break; for(j = 1; j <= i; j++) print l[j] }' |dd -conv block >[2=]