import IO

main = do hdl <- openFile "/tmp/foo.txt" ReadMode
	  a <- hGetChar hdl
	  hSeek hdl AbsoluteSeek 4 
	  b <- hGetChar hdl
	  print (a,b)
	  c <- hGetChar hdl
	  hSeek hdl RelativeSeek 3
	  d <- hGetChar hdl
	  print (c,d)
	  e <- hGetChar hdl
	  hSeek hdl SeekFromEnd (-3)
	  f <- hGetChar hdl
	  print (e,f)