write_macd12:-
	tell("test.txt"), !
write_macd12:-
	curr_ema_list(X),
	write(X),
	write('\n'),
	fail.
write_macd12:-
	told.