#! /usr/local/bin/perl -w

require 5;
 
use PGForth;

PGForth::forth (<<'END');
perl( "Forth in Perl\nby Peter Gallasch\n\n" )perl .
END

PGForth::interpret;

__END__

test input:

44 55 perl(
print forth (5, 6 ,7, "perl( print \"\@st\\n\" )"."perl drop * + ")
)perl drop cr .s

end test input.
test input should yield:

5 6 7
47
        55
        44
ok

