sct ()
{
 dbget -a $1 -s "show create table $2" | 
  perl -pe 's/^\S+\t//; s/, /,\n/g;s/\( /(\n/;s/\) \)/)\n)/'
}