read -aa
$[b[l/2]+=(a[{-4..1}]-a[l++])**2]
eval echo\ {'$[a[i-4]+a[i-2]-a[i++]]{,}>&$[b[j]==b[j-1]&b[j]*2==b[j++-2]]||'{,,},-1}