module current_mirror(inp,inm,outp,outm);
 input inp,inm;
 output outp,outm;
 current inp,inm,outp,outm;

 parameter ratio = 1,                   // current mirror ration
           Rin   = 1K from (0:inf);     // input impedance

 analog
 begin
   I(inp,inm)   <+ V(inp,inm) / Rin;
   I(outp,outm) <+ ratio * I(inp);
 end
endmodule