module HGraph.Utils where

mhead []    = Nothing
mhead (x:_) = Just x