Scheme: Initial port of Peter Norvig's lis.py