Run several rholang proceses sequentially

sequential.rho.scala

new seq in {

  // Take a cons list of contracts, run them sequentially
  contract seq(@[head, tail], @ack) = {
    new return in {
      @head!(*return)
      |
      for (_ <- return){
        seq!(tail, ack)
      }
    }
  }
  |

  // Terminating case
  contract seq(@[], ack) = {
    ack!(0)
  }
  |

  // Names for our three contracts and ack channel
  new p1, p2, p3, localAck in {
    contract p1(@return) = {
      @"stdoutAck"!("p1", return)
    }
    |
    contract p2(@return) = {
      @"stdoutAck"!("p2", return)
    }
    |
    contract p3(@return) = {
      @"stdoutAck"!("p3", return)
    }
    |

    // Let's actually call this thing
    seq!([*p1, [*p2, [*p3, []]]], *localAck)
  }
}