(out '(lpr "-P" "Printer01")
   (prinl "Hello world") )