def calcit(expr v, s) = scantokens(s & decimal v) enddef;

t := calcit(100.4, "sind");
show t;
end