sub pretty { my $first= shift(@_); my $second= shift(@_); my $optional= shift(@_);