let compose = ((id id) (id id)) id