Implement Free.foldRun