import IO

main = do x <- openFile "/tmp/foo.txt" WriteMode
          y <-hIsWritable x
          print y