with Types; use Types; with Remote_Key; use Remote_Key; package RCI is pragma Remote_Call_Interface; procedure Wstaw(p: in Wpis; ref: Remote_Key_Reference); pragma Asynchronous(Wstaw); function Nazwa(n: in Positive) return String; end RCI;