function [stk,txt,top]=sci_upper()
// Copyright INRIA
txt=[]
stk=list('convstr('+stk(top)(1)+',''u'')','0',stk(top)(3),stk(top)(4),'10')



