let detricote = fun (sigma:int) (delta:int) ->
 let s = 2 * sigma in
  ( ( s  + delta ) / 2 , ( s - delta ) / 2 )