removeCommentSymbol(A):-
	open(A,read,Stream1),
	 removeSymbol(_,Stream1,TempStorage),
	 open(A,write,Stream2),
	 overwriteOld(_,Stream2,TempStorage),
         close(Stream1),
	 close(Stream2).


removeSymbol(noComment,Stream1,TempStorage):-
	get_char(Stream1,NewChar),
	 handleNewChar(_,Stream1,NewChar,TempStorage).

handleNewChar('Found end_of_file',_,end_of_file,[]):- !.
handleNewChar('Skipping % symbol',Stream1,'%',TempStorage):-
        get_char(Stream1,NewChar),
	 skipWhitespace(_,Stream1,NewChar,TempStorage),!.
handleNewChar('Copying next char',Stream1,OldChar,[OldChar|TempStorage]):-
	get_char(Stream1,NewChar),
	 handleNewChar(_,Stream1,NewChar,TempStorage),!.

skipWhitespace('Found end_of_file',_,end_of_file,[]):- !.
skipWhitespace('Skipping % symbol',Stream1,'%',TempStorage):-
	get_char(Stream1,NewChar),
	 skipWhitespace(_,Stream1,NewChar,TempStorage),!.
skipWhitespace('Skipping whitespace after % symbol',Stream1,' ',TempStorage):-
        get_char(Stream1,NewCode),
	 handleNewChar(_,Stream1,NewCode,TempStorage),!.
skipWhitespace('Trash whitespace has ended',Stream1,OldChar,[OldChar|TempStorage]):-
	get_char(Stream1,NewCode),
	 handleNewChar(_,Stream1,NewCode,TempStorage),!.


overwriteOld('Found end of TempStorage',_,[]):- !.
overwriteOld('Writing next char',Stream2,[NextChar|RemainingTempStorage]):-
	write(Stream2,NextChar),
	 overwriteOld(_,Stream2,RemainingTempStorage).