I am supposed to implement the following code in Maple (I am using Maple 16 for Mac):

 euclid:= proc(m,n) local q,r1,r2,r3;

r1:=m; r2:=n;

while r2 <> 0 do;

q:=iquo(r1,r2); r3:=irem(r1,r2);

lprint(r1, '=', q, '*', r2, '+', r3);

r1:=r2; r2:=r3; od;

RETURN(r1); end;

It just returns: "Error, unable to match delimiters". I copied (typed) the code from this PDF: 

http://www...