Why IOs in Haskell are so complex?

A simple solution is not complete!!! try this code below and at stdin, enter "X".

-------------------------------------------
using namespace std;
#include
main()
{
int idx = 0;
while(idx != -1) {
cin >> idx;
cout << idx << "\n";
}
}

---------------------------------------------------------