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




