added func.hs
Merge branch 'master' of https://github.com/Ortmeyer/JOHN

sadda