ocleanvb h (NBlock1 a b c d) = let z = findCNSL "name" b in
 if z == Nothing
 then
  do
   putStrLn ("Cleanup: Node " ++ a ++ " has no name")
   exitFailure
 else
  do
   let y = fromJust z
   writeCleanOut h ("$" ++ a ++ "_name = \"" ++ y ++ "\"")
ocleanvb h (NBlock1 a b c d) = let z = findCNSL "name" b in
 if z == Nothing
 then
  do
   putStrLn ("Cleanup: Node " ++ a ++ " has no name")
   exitFailure
 else
  do
   let y = fromJust z
   writeCleanOut h ("$" ++ a ++ "_name = \"" ++ y ++ "\"")
ocleanvb h (NBlock1 a b c d) = let z = findCNSL "name" b in
 if z == Nothing
 then
  do
   putStrLn ("Cleanup: Node " ++ a ++ " has no name")
   exitFailure
 else
  do
   let y = fromJust z
   writeCleanOut h ("$" ++ a ++ "_name = \"" ++ y ++ "\"")