module tryfunct(clk,n,result,reset);
output[31:0] result;
input [3:0] n;
input reset,clk;
reg[31:0] result;
always@(posedge clk)
begin
 if(!reset)
 result<=0;
 else
 begin
 result<=n*factorial(n)/((n*2)+1);
 end
 end
 function [31:0] factorial;
 input [3:0] operand;
 reg [3:0] index;
 
 begin
   factorial=operand?1:0;
     for(index=2;index<=15;index=index+1)
     begin
     if(index<=operand)
     factorial=index*factorial;
     end
   end
   endfunction
endmodule