ref: 733c5d6645b133b60d304c38fcb1398f94d0618c
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=]