\catcode`_=12
\directlua{
mpinst = mplib.new({ini_version = false,
            mem_name = 'plain.mem',
%						main_memory=10000,
 })
ret = mpinst:execute([[
beginfig(1); 
draw (10mm,0mm) -- (10mm,-150mm ) ;
draw (15mm,0mm) -- (15mm,-150mm ) ;
draw (20mm,0mm) -- (20mm,-150mm ) ;
draw (25mm,0mm) -- (25mm,-150mm ) ;
draw (30mm,0mm) -- (30mm,-150mm ) ;
draw (35mm,0mm) -- (35mm,-150mm ) ;
draw (40mm,0mm) -- (40mm,-150mm ) ;
draw (45mm,0mm) -- (45mm,-150mm ) ;
draw (50mm,0mm) -- (50mm,-150mm ) ;
draw (55mm,0mm) -- (55mm,-150mm ) ;
draw (60mm,0mm) -- (60mm,-150mm ) ;
draw (65mm,0mm) -- (65mm,-150mm ) ;
draw (70mm,0mm) -- (70mm,-150mm ) ;
draw (75mm,0mm) -- (75mm,-150mm ) ; 
draw (80mm,0mm) -- (80mm,-150mm ) ;
draw (85mm,0mm) -- (85mm,-150mm ) ;
draw (90mm,0mm) -- (90mm,-150mm ) ;
draw (95mm,0mm) -- (95mm,-150mm ) ;
draw (100mm,0mm) -- (100mm,-150mm );
draw (105mm,0mm) -- (105mm,-150mm );
draw (110mm,0mm) -- (110mm,-150mm );
draw (115mm,0mm) -- (115mm,-150mm );
draw (120mm,0mm) -- (120mm,-150mm );
draw (125mm,0mm) -- (125mm,-150mm );
draw (0mm,-10mm) -- (150mm,-10mm) ;
draw (0mm,-14.218mm) -- (150mm,-14.218mm) ;
draw (0mm,-18.435mm) -- (150mm,-18.435mm) ;
draw (0mm,-22.653mm) -- (150mm,-22.653mm) ;
draw (0mm,-26.87mm) -- (150mm,-26.87mm)   ;
draw (0mm,-31.088mm) -- (150mm,-31.088mm) ;
draw (0mm,-35.305mm) -- (150mm,-35.305mm) ;
draw (0mm,-39.523mm) -- (150mm,-39.523mm) ;
draw (0mm,-43.74mm) -- (150mm,-43.74mm)   ; 
draw (0mm,-47.958mm) -- (150mm,-47.958mm) ;
draw (0mm,-52.175mm) -- (150mm,-52.175mm) ;
draw (0mm,-56.393mm) -- (150mm,-56.393mm) ;
draw (0mm,-60.61mm) -- (150mm,-60.61mm)   ;
draw (0mm,-64.828mm) -- (150mm,-64.828mm) ;
draw (0mm,-69.045mm) -- (150mm,-69.045mm) ;
draw (0mm,-73.263mm) -- (150mm,-73.263mm) ;
draw (0mm,-77.48mm) -- (150mm,-77.48mm)   ;
endfig ]])
texio.write_nl("Status: " .. ret.status )
texio.write_nl("Error: " .. ret.term )
texio.write_nl("----")
}
\bye