print join ",", map { &{$field_info{$_}{format}}($deal) } @fields;
print "\n";