class MAIN is

   sdnorm(z:FLTD):FLTD is
      return (-z*z/2.0d).exp;
   end;

   main(args:ARRAY{STR}) is
      n ::= args[1].cursor.get_int;
      alpha ::= args[2].cursor.get_fltd;
      x ::= 0.0d;
      loop n.times!;
	 innov ::= RND::uniform_range(-alpha,alpha);
	 can ::= x+innov;
	 aprob ::= 1.0d.min(sdnorm(can)/sdnorm(x));
	 u ::= RND::uniform;
	 if (u<aprob) then
	    x := can;
	 end;
	 #OUT+ x+"\n";
      end;
   end;
   


end;