let x = map < list, (int * int * int) >