%externalroutinespec define(%string (255) s)
%externalroutinespec run(%string (255) s)

%externalroutine kmc (%string (255) s)
%string (255) s1, s2, s3, s4
define("2,kprims")
s3="y"; s4=".out"
%if s->s.("/").s2 %start
      %if s2->s3.(",").s4 %then s3=s3
%finish
define("1,".s)
%if s3="" %then s3="Y"
%if s4="" %then s4="ss#list"
define("3,".s3)
define("4,".s4)
run("kmc2y")
%end
%externalroutine krecode(%string (255) s)
%string (255) t, u
%unless s -> s.("/"). t %then t = ".out"
define("1,".s)
define("2,".t)
run("krecoy")
%end
%endoffile