thesaurus 246 B

1234567891011121314151617181920
  1. #!/bin/rc
  2. hget 'http://thesaurus.reference.com/search?q='^$1 |
  3. htmlfmt -l 1000 |
  4. sed -n '
  5. 1,/^[0-9]+ entries found for/d
  6. /ADVERTISEMENT/,$d
  7. 1,/^$/d
  8. s/^Entry://p
  9. /^Source:/{
  10. N
  11. d
  12. }
  13. /^[A-Z][a-z]*:/{
  14. N
  15. s/\n/ /gp
  16. }
  17. '