#!/usr/bin/perl

require 'cards.pl';
require 'cco.pl';

local($dob) = &CCO'load($DBNAME);

foreach $abbr ( sort &CCO'abbrevs($dob) ) {
    @expns = &CCO'match($dob, $abbr);
    if (@expns > 1) {
	$vals = join(", ", @expns);
	$ptr = 0;
    } 
    elsif (@expns == 1) {
	$vals = $expns[0];
	$ptr = &CCO'match($dob, $vals);
    } else {
	die "This cannot happen";
    } 
    $vals = $ptr ? "> $vals" : &fmtcard($vals);
    write;
} 

format STDOUT = 
@<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$abbr, $vals
~~               ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$vals
.