:- include('ExecExtension.mpk').

main(Command) :-
	getRuntime(Environment),
	exec(Environment, Command, Process),
	getInputStream(Process, Input),
	open(Input, read, Input_, [stream]),
	retrieve_input(Input_),
	halt.

retrieve_input(Stream) :-
	repeat,
		( get_line(Stream, Line) ->
			println([Line]), fail
		;	true
		),
	!.