procedure multiseq()

   suspend (i := seq(), (|i \ i))

end