%constinteger nl=10
%integermapspec integer(%integer a)
%realmapspec real(%integer a)
%string(*)%mapspec string(%integer a)
%record(*)%mapspec record(%integer a)
%bytemapspec byteinteger(%integer a)
%shortmapspec shortinteger(%integer a)
%halfmapspec halfinteger(%integer a)
%longintegermapspec longinteger(%integer a)
%longrealmapspec longreal(%integer a)
%longrealmapspec longlongreal(%integer a)
%bytemapspec length(%string(*)%name s)
%bytemapspec charno(%string(*)%name s,%integer n)
%integerfnspec addr(%name n)
%string(1)%fnspec tostring(%integer k)
%string(1)%fnspec nextitem
%integerfnspec nextch
%integerfnspec nextsymbol
%routinespec readch(%name n)
%routinespec readsymbol(%name n)
%routinespec readitem(%string(*)%name s)
%routinespec printch(%integer k)
%routinespec printsymbol(%integer k)
%routinespec skipsymbol
%routinespec printstring(%string(255) s)
%routinespec selectinput(%integer n)
%routinespec selectoutput(%integer n)
%routinespec read(%name n)
%routinespec write(%integer m,n)
%integerfnspec imod(%integer i)
%realfnspec mod(%real x)
%integerfnspec intpt(%real x)
%integerfnspec int(%real x)
%realfnspec fracpt(%real x)
%routinespec newline
%routinespec newlines(%integer i)
%routinespec newpage
%routinespec space
%routinespec spaces(%integer i)
%string(255)%fnspec substring(%string(255) s,%integer from,to)
%routinespec print(%real x,%integer n,m)
%routinespec printfl(%real x,%integer n)
%routinespec closestream(%integer n)
%integerfnspec eventinf
%integerfnspec eventline
%longrealfnspec float(%integer i)
%longintegerfnspec lengtheni(%integer i)
%longrealfnspec lengthenr(%longreal x)
%longintegerfnspec lint(%longreal x)
%longintegerfnspec lintpt(%longreal x)
%integerfnspec shorteni(%longinteger i)
%longrealfnspec shortenr(%longreal x)
%integerfnspec sizeof(%name a)
%longrealfnspec arccos(%longreal x)
%longrealfnspec arcsin(%longreal x)
%longrealfnspec arctan(%longreal x,y)
%longrealfnspec cos(%longreal x)
%longrealfnspec cot(%longreal x)
%longrealfnspec exp(%longreal x)
%longrealfnspec log(%longreal x)
%longrealfnspec radius(%longreal x,y)
%longrealfnspec sin(%longreal x)
%longrealfnspec sqrt(%longreal x)
%longrealfnspec tan(%longreal x)
%routine pprofile