"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
Done