Extract read-full function
Remove unused variable
Add CPS interpreter