proc head*[T](pp: var array[1,T]): var T =
  result = pp[0]