"input.txt" ascii file-lines first "," split [ dec> ] map  ! parse
dup [ median ] keep n-v vabs sum .                         ! part 1
dup mean >integer '[ _ - abs [1,b] sum ] map-sum .         ! part 2