#lang typed-scheme (andmap = (list 1 2 3) (list 1 2 3))