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