#!/usr/bin/perl -w

package n_aryToken;

sub new {

    my $class = shift;
    my $self = {

        _function => shift,
        _arguments => shift

    };

    bless $self, $class;
    return $self;

}

sub printAll {

    my $self = shift;
    my $delimiter = shift;

    $delimiter = " " unless ($delimiter);

    my $printString = $self->{_function};
    foreach $arg (@{$self->{_arguments}}) {
        $printString = $printString . " " . $arg . $delimiter;
    }

    $printString =~ s/$delimiter$/\n/;

    print $printString;

}

1;