[tlist] foldr with CPS