Round4
Merge branch 'master' of https://github.com/lisprolog/pp04

4th exercise