-- -*- M2-comint -*- {* hash: -695182726 *} i1 : x o1 = x o1 : Symbol i2 : x := 4 o2 = 4 i3 : x o3 = 4 i4 : g = () -> ( p := 444; p ) o4 = g o4 : FunctionClosure i5 : g() o5 = 444 i6 : p o6 = p o6 : Symbol i7 : g = () -> ( p := 444; () -> p ) --warning: function g redefined o7 = g o7 : FunctionClosure i8 : g() o8 = {*Function[stdio:7:25-7:28]*} o8 : FunctionClosure i9 : oo () o9 = 444 i10 : g = () -> ( p := 444; (() -> p, i -> p = i)) --warning: function g redefined o10 = g o10 : FunctionClosure i11 : (b,c) = g() o11 = (b, c) o11 : Sequence i12 : b() o12 = 444 i13 : c 555 o13 = 555 i14 : b() o14 = 555 i15 : a := b := 44 o15 = 44 i16 : a o16 = 44 i17 : b o17 = 44 i18 : g = () -> ( x := local x; R := QQ[x]; (x+2)^10); --warning: function g redefined i19 : g() 10 9 8 7 6 5 4 3 o19 = x + 20x + 180x + 960x + 3360x + 8064x + 13440x + 15360x + ----------------------------------------------------------------------- 2 11520x + 5120x + 1024 o19 : QQ[x] i20 : f = i -> (i,i^2) o20 = f o20 : FunctionClosure i21 : (r,s) := f 9 o21 = (9, 81) o21 : Sequence i22 : r o22 = 9 i23 : s o23 = 81 i24 : String * String := peek; i25 : "left" * "right" o25 = ("left", "right") i26 : String * Number := peek; i27 : "left" * 33 o27 = ("left", 33) i28 : "left" * 3.3 o28 = ("left", 3.3) i29 : ZZ + ZZ := (x,y) -> x+y+100 o29 = {*Function[stdio:33:17-33:24]*} o29 : FunctionClosure i30 : 3 + 4 o30 = 7 i31 : CC + CC := (w,z) -> w*z o31 = {*Function[stdio:35:17-35:22]*} o31 : FunctionClosure i32 : ii + ii o32 = 2*ii o32 : CC (of precision 53) i33 : - String := peek; i34 : - "foo" o34 = "foo" i35 : - String := peek; i36 : - "foo" o36 = "foo" i37 : String ~ := peek; i38 : "foo" ~ o38 = "foo" i39 : String ~ := peek; i40 : "foo" ~ o40 = "foo" i41 : source String := peek; i42 : source "foo" o42 = "foo" i43 : source String := peek; i44 : source "foo" o44 = "foo" i45 : source(String,Number) := peek; i46 : source("foo",33) o46 = ("foo", 33) i47 : source("foo",3.3) o47 = ("foo", 3.3) i48 : source(String,String) := peek; i49 : source("foo","bar") o49 = ("foo", "bar") i50 :