program todo
	use todo_m, only: Todo_t

	implicit none

	type(Todo_t) :: todo_list

	call todo_list%readPreviousTasks()
	call todo_list%interact()
end program todo