DBMS_Output.Put_Line in a Procedure

I get tired of typing 'DBMS_Output.Put_Line,' and unless this turns out to be a big time-waster, I think I'll just call the pPrint procedure:

 
 
pPrint.SQL
 
 
 
Create Or Replace
  Procedure pPrint (Print_String In Varchar2)
  Is
  Begin
    Dbms_Output.Put_Line(Print_String);
  End;
/
 
 

This calls the pPrint procedure:

 
 
Begin
    pPrint ('apple');
End;
/