package Psh
::Support
::Debug
;
my %token_types= ( 0=> 'END', 1=>'WORD:',2=>'PIPE',
3=>'REDIRECT',4=>'BACKGROUND',
foreach my $tok (@tokens) {
if (ref $tok eq 'ARRAY') {
$type= $token_types{$type} if $token_types{$type};
push @result, join('',$type,@tok,' ');