:-consult('/usr/share/logtalk/configs/swi').
:-consult('/usr/share/logtalk/compiler/logtalk').
:-logtalk_load([javaobject,javacomment,drowobject]).



drow :- 
  tell(pipe('grep ^[^%] > drow.java')),
  logtalk_load([mainobject]),
  told.