Cleaned up logic/area.clp