agda part 1
fusion: average