function [stk,txt,top]=sci_pack()
// Copyright INRIA
txt=[]
stk=list(' ','-1','?','?','?')

