F subleq(&a)
   V i = 0
   L i >= 0
      I a[i] == -1
         a[a[i + 1]] = :stdin.read(1).code
      E I a[i + 1] == -1
         print(Char(code' a[a[i]]), end' ‘’)
      E
         a[a[i + 1]] -= a[a[i]]
         I a[a[i + 1]] <= 0
            i = a[i + 2]
            L.continue
      i += 3

subleq(&[15, 17, -1, 17, -1, -1, 16, 1, -1, 16, 3, -1, 15, 15, 0, 0, -1, 72,
         101, 108, 108, 111, 44, 32, 119, 111, 114, 108, 100, 33, 10, 0])