Use of Multi-Level Patterns

(cpr (trans
      (trans
       (trans '(defun zb (x) (average x))
              'loop) 'list) 'lisptoc))

zb(x)
  {
    int ptr30; int item27; int total28; int n29;;
    {
      total28 = 0;
      n29 = 0;
      };
    ptr30 = x;
    while ( ptr30 ) 
      {
        item27 = first(ptr30);
        ptr30 = rest(ptr30);
        {
          total28 += item27;
          ++n29;
          };
        };
    return ((total28 / n29));
    };