sub print
{
    print $value unless $value eq '-';
}