begin
  string(255) s
  integer n

  routine p1 (string(*)name k)
    print string("p1: ")
    print string(k)
    newline
  end

  routine p2 (string(*)name k)
    print string("p2: ")
    print string(k)
    newline
  end

  routine pass (routine p (string(*)name k), string(*)name k)
    p(k)
  end

  cycle
    read(n)
    read(s)
    if n = 1 start
      pass(p1,s)
    else
      pass(p2,s)
    finish
    print string("test done")
    newline
  repeat

end
end of file