#lang typed-scheme
(require scheme/list)
(first (cons 1 2))