func main() var ss: [][]char :: (cui@input() ~ cui@input()).split("x") var ans: int for i(0, ^ss - 1) do ans :: [ans, ^ss[i]].max() end for do cui@print("\{ans}\n") end func