function y=myfact(n)
     
y=n;
while n>1
    n=n-1;
    y=y*n;
end
end