bfetch (n,p) = do t <- System.IO.Strict.readFile p 
                  return (n,t)
bfetch (n,p) = do t <- System.IO.Strict.readFile p 
                  return (n,t)
bfetch (n,p) = do t <- System.IO.Strict.readFile p 
                  return (n,t)