fix smartinput regexp in haskell?
c++