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