pieug( n, orig, dest, inter)

      function pieug( n, orig, dest, inter)
      global pieux;

      if n > 0
        pieu(n-1, orig, inter, dest);
        deplace(orig, dest);
        pieu(n-1, inter, dest, orig);
      end;