meaningful trigger descriptions

When one describes a table psql lists the foreign keys after the table columns, e.g.:

calendar=> \d business
Table "business"
Column | Type | Modifiers

------------------+-----------------------------+-----------------------------------------------
id | integer | not null default nextval('business_id'::text)
name | character varying(100) | not null
owner | character varying(100) | not null
address_line_1 | character varying(100) | not null
address_line_2 | character varying(100) |
city | character varying(100) | not null
state_code | character(2) | not null
zip | character(5) | not null
zip_4 | character(4) |
primary_timezone | character(3) | not null default 'GMT'
create_date | timestamp(0) with time zone | default now()
last_update_date | timestamp(0) with time zone |
create_by | integer |
last_update_by | integer |
Primary key: business_pk
Unique keys: business_name_key,
business_name_owner
Triggers: RI_ConstraintTrigger_56403390,
RI_ConstraintTrigger_56403392,
RI_ConstraintTrigger_56403426,
RI_ConstraintTrigger_56403428,
RI_ConstraintTrigger_56403514,
....

Does anyone have a query handy that will print out something prettier for those foreign key constraints, like:

tablename constraint
----------------------
foo FOREIGN KEY (a) REFERENCES bar
foo FOREIGN KEY (b) REFERENCES goo
bar q FOREIGN KEY (z) REFERENCES goo