module I_peak_detector(in,out);
 input in;
 output out;
 current in,out;

 real imax;

 analog
 begin
   @(initial_step) imax = -inf;

   if (I(in) > imax) imax = I(in);

   I(out) <+ imax;

   @(final_step)
     $strobe("Peak Current : %g A\n",imax);

 end
endmodule