proc main()
    var i, n:=100, s:=0.;
    argc()>2 -> n:=val(argv(2));
    for i:=1 to n step 2 do
        s := s+1./(2*i-1)-1./(2*i+1);
    end;
    echo '[',n,'] ', s*4, endl;
end;
