got list foldr almost working