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