import IO
import Directory

main = do hdl <- openFile "/tmp/foo.txt" WriteMode
	  hPutStr hdl "HELLO"
	  hClose hdl
	  a <- getPermissions "/tmp/foo.txt"
	  print a
	  setPermissions "/tmp/foo.txt" (Permissions  False True False False)
	  b <- getPermissions "/tmp/foo.txt"
	  print b
	  setPermissions "/tmp/foo.txt" b {readable=True}
	  c <- getPermissions "/tmp/foo.txt"
	  print c
	  setPermissions "/tmp/foo.txt" c {readable=False, executable=True}
	  d <- getPermissions "/tmp/foo.txt"
	  print d