m d i=minimum[sum$map(d.abs.(x-))i|x<-[0..maximum i]]
g n=(n^2+n)`div`2
main=interact$show.((,).m g<*>m id).read.('[':).(++"]")