"/tmp/input" ascii file-lines
first2 [ string>number ] [ "," split
  [ "x" = ] reject [ string>number ] map
] bi*
dupd [
  [ [ 1 - + ] [ /i ] [ * ] tri ] keep 2array
] with map infimum
first2 [ swap - ] dip *