insertKernel :: String -> (String,String,Word32,Word32) -> Coord ()
insertKernel prot cand = 
  do 
    s <- get 
    let km = kernelMap s 
        km' = Map.insert prot cand km 
    put (s {kernelMap = km'})
insertKernel :: String -> (String,String,Word32,Word32) -> Coord ()
insertKernel prot cand = 
  do 
    s <- get 
    let km = kernelMap s 
        km' = Map.insert prot cand km 
    put (s {kernelMap = km'})
insertKernel prot cand = 
  do 
    s <- get 
    let km = kernelMap s 
        km' = Map.insert prot cand km 
    put (s {kernelMap = km'})