27/09/12 11:00:23 p.m. [->] 1
27/09/12 11:00:23 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpD109.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpD119.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := 1:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:00:25 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpD119.tmp:

27/09/12 11:00:25 p.m. [<-] 

27/09/12 11:00:38 p.m. [->] "1+2"
27/09/12 11:00:38 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpE1A.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpE1B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `1+2`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:00:39 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpE1B.tmp:

27/09/12 11:00:39 p.m. [<-] 

27/09/12 11:03:24 p.m. [->] parse"1+2"
27/09/12 11:03:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp98DE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp98DF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse`1+2`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:03:26 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp98DF.tmp:

27/09/12 11:03:26 p.m. [<-] 

27/09/12 11:04:42 p.m. [->] sqrt(4)
27/09/12 11:04:42 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC7CC.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC7CD.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := sqrt(4):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:04:43 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC7CD.tmp:

27/09/12 11:04:43 p.m. [<-] 

27/09/12 11:06:43 p.m. [->] 2
27/09/12 11:06:44 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA2A2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA2A3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := 2:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:06:44 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA2A3.tmp:
2
27/09/12 11:06:44 p.m. [<-] 2

27/09/12 11:07:56 p.m. [->] sqrt(4)
27/09/12 11:07:56 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpBC4B.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpBC5C.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := sqrt(4):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:07:56 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpBC5C.tmp:
2
27/09/12 11:07:56 p.m. [<-] 2

27/09/12 11:08:03 p.m. [->] sqrt(x)
27/09/12 11:08:03 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpD827.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpD828.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := sqrt(x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:08:03 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpD828.tmp:
x^(1/2)
27/09/12 11:08:03 p.m. [<-] x^(1/2)

27/09/12 11:09:20 p.m. [->] parse("1+2",statment)
27/09/12 11:09:20 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp7DF.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp7E0.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:09:21 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp7E0.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:09:21 p.m. [->] parse("1+2",statment)
27/09/12 11:09:21 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA9F.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpAB0.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:09:22 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpAB0.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:09:31 p.m. [->] parse("1+2",statment)
27/09/12 11:09:31 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp303B.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp304B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:09:31 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp304B.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:09:40 p.m. [->] parse("1+2",statment)
27/09/12 11:09:40 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp5559.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp555A.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:09:41 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp555A.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:10:06 p.m. [->] parse("1+2";statment)
27/09/12 11:10:06 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpBA07.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpBA08.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`;statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:10:07 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpBA08.tmp:

27/09/12 11:10:07 p.m. [<-] 

27/09/12 11:11:57 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:11:57 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp6A25.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp6A26.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:11:58 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp6A26.tmp:

27/09/12 11:11:58 p.m. [<-] 

27/09/12 11:12:15 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:12:15 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpAFCE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpAFCF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:15 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpAFCF.tmp:

27/09/12 11:12:15 p.m. [<-] 

27/09/12 11:12:15 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:12:15 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpB2AD.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpB2BE.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:16 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpB2BE.tmp:

27/09/12 11:12:16 p.m. [<-] 

27/09/12 11:12:16 p.m. [->] parse("1+2";statment)
27/09/12 11:12:16 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpB5BB.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpB5BC.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`;statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:17 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpB5BC.tmp:

27/09/12 11:12:17 p.m. [<-] 

27/09/12 11:12:24 p.m. [->] solve(((x^{3/2}≡3*x)≡0))
27/09/12 11:12:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpD5CB.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpD5CC.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:25 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpD5CC.tmp:
Error, (in solve) invalid arguments
                                      ans
27/09/12 11:12:25 p.m. [->] parse("1+2";statment)
27/09/12 11:12:25 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpD7B0.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpD7B1.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`;statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:25 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpD7B1.tmp:

27/09/12 11:12:25 p.m. [<-] 

27/09/12 11:12:27 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:12:27 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpE0F5.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpE0F6.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:28 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpE0F6.tmp:

27/09/12 11:12:28 p.m. [<-] 

27/09/12 11:12:28 p.m. [->] parse("1+2";statment)
27/09/12 11:12:28 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpE423.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpE433.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`;statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:12:29 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpE433.tmp:

27/09/12 11:12:29 p.m. [<-] 

27/09/12 11:13:00 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:13:00 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp60F2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp60F3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:13:01 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp60F3.tmp:
3^(2/3)
27/09/12 11:13:01 p.m. [<-] 3^(2/3)

27/09/12 11:14:47 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:14:47 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp214.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp225.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:14:48 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp225.tmp:
3^(2/3)
27/09/12 11:14:48 p.m. [<-] 3^(2/3)

27/09/12 11:20:56 p.m. [->] parse("1+2";statment)
27/09/12 11:20:56 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA603.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA613.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`;statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:20:57 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA613.tmp:

27/09/12 11:20:57 p.m. [<-] 

27/09/12 11:21:25 p.m. [->] parse("1+2",statment)
27/09/12 11:21:25 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp14BE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp14BF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:21:25 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp14BF.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:22:12 p.m. [->] "1+2"
27/09/12 11:22:12 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCCE8.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCCF8.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `1+2`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:22:12 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCCF8.tmp:
1+2
27/09/12 11:22:12 p.m. [<-] 1+2

27/09/12 11:22:29 p.m. [->] "int(x,x)"
27/09/12 11:22:29 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpFE2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpFE3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `int(x,x)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:22:29 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpFE3.tmp:
int(x,x)
27/09/12 11:22:29 p.m. [<-] int(x,x)

27/09/12 11:22:59 p.m. [->] int(x,x)
27/09/12 11:22:59 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp85DE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp85DF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:23:00 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp85DF.tmp:
1/2*x^2
27/09/12 11:23:00 p.m. [<-] 1/2*x^2

27/09/12 11:23:21 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:23:21 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpDAE2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpDAE3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:23:21 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpDAE3.tmp:
parse(int(x,x),statment)
27/09/12 11:23:21 p.m. [<-] parse(int(x,x),statment)

27/09/12 11:23:42 p.m. [->] "parse(int(x,x);statment)"
27/09/12 11:23:42 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp2D38.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp2D48.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x);statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:23:42 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp2D48.tmp:
parse(int(x,x);statment)
27/09/12 11:23:42 p.m. [<-] parse(int(x,x);statment)

27/09/12 11:23:54 p.m. [->] parse(int(x,;statment))
27/09/12 11:23:54 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp5C16.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp5C27.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(int(x,;statment)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:23:55 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp5C27.tmp:

27/09/12 11:23:55 p.m. [<-] 

27/09/12 11:24:10 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:24:10 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp9C43.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp9C54.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:24:11 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp9C54.tmp:
parse(int(x,x),statment)
27/09/12 11:24:11 p.m. [<-] parse(int(x,x),statment)

27/09/12 11:24:21 p.m. [->] parse(int(x,x),statment)
27/09/12 11:24:21 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC50A.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC50B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(int(x,x),statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:24:21 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC50B.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:24:29 p.m. [->] parse("2",statment)
27/09/12 11:24:29 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpE5D5.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpE5E5.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:24:30 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpE5E5.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:24:35 p.m. [->] parse("1+2",statment)
27/09/12 11:24:35 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpFC34.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpFC35.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:24:35 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpFC35.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:24:50 p.m. [->] parse("1+2")
27/09/12 11:24:50 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp37EE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp37EF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:24:51 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp37EF.tmp:
3
27/09/12 11:24:51 p.m. [<-] 3

27/09/12 11:25:29 p.m. [->] parse("1+2")
27/09/12 11:25:29 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCDB9.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCDC9.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:25:29 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCDC9.tmp:
3
27/09/12 11:25:29 p.m. [<-] 3

27/09/12 11:25:39 p.m. [->] parse("int(x,x)")
27/09/12 11:25:40 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF853.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF854.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:25:40 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF854.tmp:
1/2*x^2
27/09/12 11:25:40 p.m. [<-] 1/2*x^2

27/09/12 11:28:42 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:28:42 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC1DD.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC1DE.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:43 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC1DE.tmp:
on line 4, syntax error, `;` unexpected:
ans := solve(((x^(3/2)=3*;x)=0)):
                         ^
27/09/12 11:28:43 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:28:43 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC46E.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC47F.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:44 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC47F.tmp:
"3^(2/3)"
27/09/12 11:28:44 p.m. [<-] "3^(2/3)"

27/09/12 11:28:44 p.m. [->] parse("1+2",statment)
27/09/12 11:28:44 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC9AE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC9AF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:45 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC9AF.tmp:
Error, wrong number (or type) of parameters in function parse
                                     "ans"
27/09/12 11:28:45 p.m. [->] parse("int(x,x)")
27/09/12 11:28:45 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCB84.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCB85.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:45 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCB85.tmp:
"1/2*x^2"
27/09/12 11:28:45 p.m. [<-] "1/2*x^2"

27/09/12 11:28:45 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:28:45 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCDA8.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCDB8.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:46 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCDB8.tmp:
"parse(int(x,x),statment)"
27/09/12 11:28:46 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:28:46 p.m. [->] int(x,x)
27/09/12 11:28:46 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCF7E.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCF7F.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:28:46 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCF7F.tmp:
"1/2*x^2"
27/09/12 11:28:46 p.m. [<-] "1/2*x^2"

27/09/12 11:37:37 p.m. [->] solve(((x^{3/2}≡3*;x)≡0))
27/09/12 11:37:37 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpEB2A.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpEB2B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve(((x^(3/2)=3*;x)=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:38 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpEB2B.tmp:
on line 4, syntax error, `;` unexpected:
ans := solve(((x^(3/2)=3*;x)=0)):
                         ^
27/09/12 11:37:38 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:37:38 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpEEF4.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpEEF5.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:39 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpEEF5.tmp:
"3^(2/3)"
27/09/12 11:37:39 p.m. [<-] "3^(2/3)"

27/09/12 11:37:39 p.m. [->] parse("1+2",statment)
27/09/12 11:37:39 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF2AD.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF2AE.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:39 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF2AE.tmp:
Error, wrong number (or type) of parameters in function parse
                                     "ans"
27/09/12 11:37:39 p.m. [->] parse("int(x,x)")
27/09/12 11:37:39 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF4A2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF4B3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:40 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF4B3.tmp:
"1/2*x^2"
27/09/12 11:37:40 p.m. [<-] "1/2*x^2"

27/09/12 11:37:40 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:37:40 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF678.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF689.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:40 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF689.tmp:
"parse(int(x,x),statment)"
27/09/12 11:37:40 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:37:40 p.m. [->] int(x,x)
27/09/12 11:37:40 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF820.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF821.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:41 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF821.tmp:
"1/2*x^2"
27/09/12 11:37:41 p.m. [<-] "1/2*x^2"

27/09/12 11:37:43 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:37:43 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp2DB.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp2DC.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:44 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp2DC.tmp:
"3^(2/3)"
27/09/12 11:37:44 p.m. [<-] "3^(2/3)"

27/09/12 11:37:44 p.m. [->] parse("1+2",statment)
27/09/12 11:37:44 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp6C4.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp6C5.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:45 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp6C5.tmp:
Error, wrong number (or type) of parameters in function parse
                                     "ans"
27/09/12 11:37:45 p.m. [->] parse("int(x,x)")
27/09/12 11:37:45 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp8C8.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp8C9.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:45 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp8C9.tmp:
"1/2*x^2"
27/09/12 11:37:45 p.m. [<-] "1/2*x^2"

27/09/12 11:37:45 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:37:45 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpB2B.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpB3B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:46 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpB3B.tmp:
"parse(int(x,x),statment)"
27/09/12 11:37:46 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:37:46 p.m. [->] int(x,x)
27/09/12 11:37:46 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpCE2.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpCE3.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:46 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpCE3.tmp:
"1/2*x^2"
27/09/12 11:37:46 p.m. [<-] "1/2*x^2"

27/09/12 11:37:48 p.m. [->] parse("1+2",statment)
27/09/12 11:37:48 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp1424.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp1425.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:48 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp1425.tmp:
Error, wrong number (or type) of parameters in function parse
                                     "ans"
27/09/12 11:37:48 p.m. [->] parse("int(x,x)")
27/09/12 11:37:48 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp1638.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp1639.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:48 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp1639.tmp:
"1/2*x^2"
27/09/12 11:37:48 p.m. [<-] "1/2*x^2"

27/09/12 11:37:49 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:37:49 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp180E.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp180F.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:49 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp180F.tmp:
"parse(int(x,x),statment)"
27/09/12 11:37:49 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:37:49 p.m. [->] int(x,x)
27/09/12 11:37:49 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp1A04.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp1A05.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:37:50 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp1A05.tmp:
"1/2*x^2"
27/09/12 11:37:50 p.m. [<-] "1/2*x^2"

27/09/12 11:38:10 p.m. [->] parse("int(x,x)")
27/09/12 11:38:10 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp6B41.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp6B51.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:10 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp6B51.tmp:
"1/2*x^2"
27/09/12 11:38:10 p.m. [<-] "1/2*x^2"

27/09/12 11:38:10 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:38:10 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp6D45.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp6D46.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:11 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp6D46.tmp:
"parse(int(x,x),statment)"
27/09/12 11:38:11 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:38:11 p.m. [->] int(x,x)
27/09/12 11:38:11 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp6F0C.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp6F1C.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:11 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp6F1C.tmp:
"1/2*x^2"
27/09/12 11:38:11 p.m. [<-] "1/2*x^2"

27/09/12 11:38:24 p.m. [->] int(x,x)
27/09/12 11:38:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA26D.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA27D.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:24 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA27D.tmp:
"1/2*x^2"
27/09/12 11:38:24 p.m. [<-] "1/2*x^2"

27/09/12 11:38:24 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:38:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA423.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA424.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:25 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA424.tmp:
"parse(int(x,x),statment)"
27/09/12 11:38:25 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:38:30 p.m. [->] int(x,x)
27/09/12 11:38:30 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpB999.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpB99A.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:30 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpB99A.tmp:
"1/2*x^2"
27/09/12 11:38:30 p.m. [<-] "1/2*x^2"

27/09/12 11:38:30 p.m. [->] parse("int(x,x)")
27/09/12 11:38:30 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpBBAD.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpBBAE.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:31 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpBBAE.tmp:
"1/2*x^2"
27/09/12 11:38:31 p.m. [<-] "1/2*x^2"

27/09/12 11:38:31 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:38:31 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpBD83.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpBD84.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:38:31 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpBD84.tmp:
"parse(int(x,x),statment)"
27/09/12 11:38:31 p.m. [<-] "parse(int(x,x),statment)"

27/09/12 11:43:52 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:43:52 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA02A.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA02B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:43:52 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA02B.tmp:

27/09/12 11:43:52 p.m. [<-] 

27/09/12 11:43:52 p.m. [->] parse("1+2",statment)
27/09/12 11:43:52 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA53B.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA54C.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:43:53 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA54C.tmp:

27/09/12 11:43:53 p.m. [<-] 

27/09/12 11:43:53 p.m. [->] parse("int(x,x)")
27/09/12 11:43:53 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA75F.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA760.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:43:53 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA760.tmp:

27/09/12 11:43:53 p.m. [<-] 

27/09/12 11:43:53 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:43:53 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpA935.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpA936.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:43:54 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpA936.tmp:

27/09/12 11:43:54 p.m. [<-] 

27/09/12 11:43:54 p.m. [->] int(x,x)
27/09/12 11:43:54 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpAADC.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpAADD.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:43:54 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpAADD.tmp:

27/09/12 11:43:54 p.m. [<-] 

27/09/12 11:44:46 p.m. [->] solve((x^{3/2}≡3))
27/09/12 11:44:46 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp750F.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp7510.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:44:46 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp7510.tmp:
3^(2/3)
27/09/12 11:44:46 p.m. [<-] 3^(2/3)

27/09/12 11:44:47 p.m. [->] parse("1+2",statment)
27/09/12 11:44:47 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp78AA.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp78BB.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`1+2`,statment):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:44:47 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp78BB.tmp:
Error, wrong number (or type) of parameters in function parse
                                      ans
27/09/12 11:44:47 p.m. [->] parse("int(x,x)")
27/09/12 11:44:47 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp7A90.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp7A91.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:44:47 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp7A91.tmp:
1/2*x^2
27/09/12 11:44:47 p.m. [<-] 1/2*x^2

27/09/12 11:44:47 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:44:47 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp7C56.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp7C67.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:44:48 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp7C67.tmp:
parse(int(x,x),statment)
27/09/12 11:44:48 p.m. [<-] parse(int(x,x),statment)

27/09/12 11:44:48 p.m. [->] int(x,x)
27/09/12 11:44:48 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp7E2C.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp7E3D.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:44:48 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp7E3D.tmp:
1/2*x^2
27/09/12 11:44:48 p.m. [<-] 1/2*x^2

27/09/12 11:45:19 p.m. [->] parse("int(x,x)")
27/09/12 11:45:19 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpF908.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpF909.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:20 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpF909.tmp:
1/2*x^2
27/09/12 11:45:20 p.m. [<-] 1/2*x^2

27/09/12 11:45:20 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:45:20 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpFACE.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpFACF.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:20 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpFACF.tmp:
parse(int(x,x),statment)
27/09/12 11:45:20 p.m. [<-] parse(int(x,x),statment)

27/09/12 11:45:20 p.m. [->] int(x,x)
27/09/12 11:45:20 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpFC95.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpFC96.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:21 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpFC96.tmp:
1/2*x^2
27/09/12 11:45:21 p.m. [<-] 1/2*x^2

27/09/12 11:45:23 p.m. [->] int(x,x)
27/09/12 11:45:23 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp712.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp713.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:23 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp713.tmp:
1/2*x^2
27/09/12 11:45:23 p.m. [<-] 1/2*x^2

27/09/12 11:45:23 p.m. [->] parse("int(x,x)")
27/09/12 11:45:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp945.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp946.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:24 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp946.tmp:
1/2*x^2
27/09/12 11:45:24 p.m. [<-] 1/2*x^2

27/09/12 11:45:24 p.m. [->] "parse(int(x,x),statment)"
27/09/12 11:45:24 p.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpB1B.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpB1C.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := `parse(int(x,x),statment)`:
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

27/09/12 11:45:24 p.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpB1C.tmp:
parse(int(x,x),statment)
27/09/12 11:45:24 p.m. [<-] parse(int(x,x),statment)

28/09/12 12:10:13 a.m. [->] solve((x^{3/2}≡3))
28/09/12 12:10:13 a.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpBF10.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpBF11.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

28/09/12 12:10:13 a.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpBF11.tmp:

28/09/12 12:10:13 a.m. [<-] 

28/09/12 12:10:13 a.m. [->] int(x,x)
28/09/12 12:10:13 a.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC559.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC569.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := int(x,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

28/09/12 12:10:14 a.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC569.tmp:

28/09/12 12:10:14 a.m. [<-] 

28/09/12 12:10:14 a.m. [->] parse("int(x,x)")
28/09/12 12:10:14 a.m. [->] C:\Users\Monica\AppData\Local\Temp\tmpC626.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmpC636.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := parse(`int(x,x)`):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

28/09/12 12:10:14 a.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmpC636.tmp:

28/09/12 12:10:14 a.m. [<-] 

28/09/12 12:10:30 a.m. [->] solve((x^{3/2}≡2))
28/09/12 12:10:30 a.m. [->] C:\Users\Monica\AppData\Local\Temp\tmp53A.tmp:
interface(quiet=true);
writeto(`C:\\Users\\Monica\\AppData\\Local\\Temp\\tmp53B.tmp`):
sys := proc() { args[i] $ i = 1..nargs-2 }; end:
ans := solve((x^(3/2)=2)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ); 
elif ( whattype( ans ) = `set` ) then 
    convert(cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`),string);
else 
    convert( ans, string ); fi;
quit:

28/09/12 12:10:30 a.m. [<-] C:\Users\Monica\AppData\Local\Temp\tmp53B.tmp:

28/09/12 12:10:30 a.m. [<-]