ocleanrvb h (KBlock a b c d) =
 writeCleanOut h ("Remove-VM -VM $" ++ a ++ "_name -Confirm:$false -DeletePermanently:$true")
ocleanrvb h (KBlock a b c d) =
 writeCleanOut h ("Remove-VM -VM $" ++ a ++ "_name -Confirm:$false -DeletePermanently:$true")
ocleanrvb h (KBlock a b c d) =
 writeCleanOut h ("Remove-VM -VM $" ++ a ++ "_name -Confirm:$false -DeletePermanently:$true")