#define NOARGC  /* no arg count passing */›#define FIXARGC /* don't expect arg counts passed in */›/*›** itoo -- converts nbr to octal string of length sz›**         right adjusted and blank filled, returns str›**›**        if sz > 0 terminate with null byte›**        if sz = 0 find end of string›**        if sz < 0 use last byte for data›*/›itoo(nbr, str, sz)  ›int nbr;  ›char str[];  ›int sz;  ›$(›  int digit;›  if(sz>0) str[--sz]=0;›  else if(sz<0) sz = -sz;›  else while(str[sz]!=0) ++sz;›  while(sz) ›    $(›    digit=nbr&7; nbr=(nbr>>3)&8191;›    str[--sz]=digit+48;›    if(nbr==0) break;›    $)›  while(sz) str[--sz]=' ';›  return str;›$)›