import Directory

main = do createDirectory "/tmp/BAR"
	  a <- doesDirectoryExist "/tmp/BAR"
	  renameDirectory "/tmp/BAR" "/tmp/FOO"
	  b <- doesDirectoryExist "/tmp/BAR"
	  c <- doesDirectoryExist "/tmp/FOO"
	  print (a,b,c)