function [stk,txt,top]=sci_title()
// Copyright INRIA
txt=[]
stk=list('xtitle('+stk(top)(1)+','' '','' '')','0','0','0','0')






