$stack = newitem;

##</code><code>##

	$top = $stack;

##</code><code>##

sub TIESCALAR {
    return unless $_[1] =~ /[fl]i[fl]o/i;
    my $stack = $_[1] =~ /([fl])i\1o/i;
)   return bless [$stack,[]], $_[0];
}

##</code><code>##

    if ($_[0]->[0]) {