in case ys of
h:t
-> if all (==h
) t
then (x
, h
) else (0, 0) [] -> (0, 0)
main = do
print $ dim
[[1, 1], [1, 1]] print $ dim
[[1, 1], [2, 2, 2]]
ZGltIDo6IFtbYV1dIC0+IChJbnQsIEludCkKZGltIGxzID0gbGV0IHggPSBsZW5ndGggbHMKICAgICAgICAgICAgIHlzID0gbWFwIGxlbmd0aCBscwogICAgICAgICBpbiBjYXNlIHlzIG9mCiAgICAgICAgICAgICBoOnQgLT4gaWYgYWxsICg9PWgpIHQgdGhlbiAoeCwgaCkgZWxzZSAoMCwgMCkKICAgICAgICAgICAgIFtdIC0+ICgwLCAwKQoKbWFpbiA9IGRvCiAgIHByaW50ICQgZGltIFtbMSwgMV0sIFsxLCAxXV0KICAgcHJpbnQgJCBkaW0gW1sxLCAxXSwgWzIsIDIsIDJdXQ==