function [stk,txt,top]=sci_isstr()
// Copyright INRIA
txt=[]
stk=list('type('+stk(top)(1)+')==10','2','1','1','4','?')

