Помогите найти НОД

[Diesel]

Написать процедуру,определяющую НОД n чисел

NOD:= proc(a::list)
for i from 1 to b do
igcd(a[i]);
end proc:
b:=2;
a:=(3,2);
NOD(a);