x <- Control.Concurrent.myThreadId
y <- Control.Concurrent.myThreadId
print (x == y)