let max a b = 
  if a <<< b then b else a