subroutine lower (token)
      integer token (100)
      call fold (token)
      return
      end