ssleb[A_, B_] := Module[{r, s1, s2, t1, t2, u}; t1 = Date[]; s1 = A; 
      s2 = B; u = $ssleb$; Save["start.data.gen", memo, u, s1, s2, t1]; 
      r = ssl[A, B]; Clear[OUT]; OUT = r; t2 = Date[]; 
      Save["out.xrr3eb", memo, OUT, s1, s2, t1, t2]; 
      Clear[OUT]; Return[r]; ]
 
ssl[U_, V_Integer] := Simplify[U, TimeConstraint -> V]
 
ss[u_] := Simplify[u]