ocleansb h (SBlock a b) =
 writeCleanOut h ("$" ++ a ++ "_name = \"" ++ a ++ "\"")
ocleansb h (SBlock a b) =
 writeCleanOut h ("$" ++ a ++ "_name = \"" ++ a ++ "\"")
ocleansb h (SBlock a b) =
 writeCleanOut h ("$" ++ a ++ "_name = \"" ++ a ++ "\"")