ex6.7 - sequence using foldRight