Irpr system server is created by calling irpr_kappa:create/4 and the interface stream IrprITR is kept.
service(IFP,Soc) :- klicio:klicio([stdout(normal(OUTS))]), irpr_kappa:create(update,IrprITR,IFP,Status), service1(Status,IrprITR,Soc,OUTS).