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