main =do

  x<-getLine

  y<-return x

  print $ stringToInt y

This is exactly equivalent to the other methods, but has the additional
'return', which is a no-op.  Please do not suggest such a style.