#!/bin/sh
perl -ne 's/".*?"//g; while (/\(define \(([^ )\n]+)/g) { print "$1\n"; }' |
sort -u