Novices:=
{Asya,Daniela,Chris,Sanjay,Josh,Michael,David,Brian,Aron};

Experts:={
[Kellen,kellenm@math], 
[Edinah,gnang@cs],
[Dennis,dhou@eden],
[Emilie,eahogan@math],
[Baxter, baxter@math],
[Brian, bnaka@math],
 [Paul,paul.raff@rutgers.edu] } ;
S:={[Baxter,{Asya}], [Brian, {Chris}],[Dennis,{Michael}],[Edinah,{Brian}],[
 Emilie,{Sanjay,Daniela}],[Kellen,{Aron,Josh}],[Paul,{David}]};


one:=[1];
two:=[1,1];
three:=[1,1,1];
four:=[1,1,1,1];
five:=[1,1,1,1,1];
six:=[1,1,1,1,1,1];
seven:=[1$7];
eight:=[1$8];
nine:=[1$9];

#Add1(x,y): inputs two integers in unary in the form
#[1,1,1,...,1], and outputs its sum
Add1:=proc(x,y):
[op(x),op(y)]:
end:

#Mul1(x,y): inputs two integers in unary in the form
#[1,1,1,...,1], and outputs their product
Mul1:=proc(x,y) local i,p:

p:=[]:

for i from 1 to nops(y) do
 p:=[op(p),op(x)]:
od:

p:

end: