expr: ifthenelse
      { $return = main::evaluate($main::c_v, @item); }
ifthenelse: if elsif(s?) else(?) endif
	    { 
		$return = 'NIL';
		for (my $i = 1; $i < @item; $i++)
		{
		  print " iftest: $i '" . $item[$i] . "'\n";
     		  if ($item[$i] ne 'NIL') { $return = $item[$i]; last; }
		}
		if ($return eq 'NIL')
		{ die "IF statement '@item' not resolvable! $!\n"; }
            } 

if:             /if/i expr /then/i expr		
		{ print 'i2: ' . $item[2] ."\n"; 
		  if($item[2]) { $return = $item[4]; } else { $return = 'NIL'; } }

else:           /else/i expr
		{ $return = $item[2]; }

elsif:          /elsif/i expr /then/i expr
		{ if ($item[2]) { $return = $item[4] } else { $return = 'NIL' } }

endif:          /endif/i { $return = 'NIL'; }