sneakyPrint :: Show a => a -> a
sneakyPrint a = unsafePerformIO $ do
  print a
  return a