#!/usr/bin/env perl

#

# $Id$

print "\\begin{supertabular}{ll\@{\\qquad}ll}\n";

$eol = "&";

while (<ARGV>) {

    if (m/^\\newcommand\{\\isasym([A-Za-z]+)\}/) {

       print "\\verb,\\<$1>, & {\\isasym$1} $eol\n";

#       print "\\verb,\\<$1>, & \\isactrlbold{\\isasym$1}~{\\isasym$1} $eol\n";

#       print "\\verb,\\<$1>, & B\\isactrlsup{\\isasym$1} $eol\n";

#       print "\\verb,\\<$1>, & B\\isactrlsub{\\isasym$1} $eol\n";

        if ("$eol" eq "&") {

            $eol = "\\\\";

        } else {

            $eol = "&";

        }

    }

}

if ("$eol" eq "\\\\") {

    print "$eol\n";

}

print "\\end{supertabular}\n";