lookupKernel :: String -> Coord (Maybe (String,String,Word32,Word32)) 
lookupKernel prot = 
  do 
    s <- get 
    let km = kernelMap s 
    return (Map.lookup prot km) 
lookupKernel :: String -> Coord (Maybe (String,String,Word32,Word32))
lookupKernel prot = 
  do 
    s <- get 
    let km = kernelMap s 
    return (Map.lookup prot km) 
lookupKernel prot = 
  do 
    s <- get 
    let km = kernelMap s 
    return (Map.lookup prot km) 