minMax : {n, a} (fin n, Cmp a) => [n]a -> (a,a)
minMax [x] = (x,x)