======================== Test 1 ====== TEXT ---- junk junk junk junk junk print junk junk junk junk junk print 'foo'; print 'bar'; OUTPUT ------ $VAR1 = [ [ 'print', 'foo' ], [ 'print', 'bar' ] ]; ======================== Test 2 ====== TEXT ---- junk junk junk junk junk print junk junk junk junk junk print 'boo'; junk junk OUTPUT ------ 5,1: Unknown command "junk". Bad text. ======================== Test 3 ====== TEXT ---- junk junk junk junk junk print junk junk junk junk junk print '\'moo\''; OUTPUT ------ $VAR1 = [ [ 'print', '\'moo\'' ] ]; ======================== Test 4 ====== TEXT ---- junk junk junk junk junk print junk junk junk junk junk print 'Hello'; print; OUTPUT ------ 5,6: Bad argument list. Bad text. ========================