getBC code xs = do
    i <- get
    let (a, s, w) = runRWS (bcc code) 0 (i { level = level i + 1 })
    return w
getBC code xs = do
    i <- get
    let (a, s, w) = runRWS (bcc code) 0 (i { level = level i + 1 })
    return w
getBC code xs = do
    i <- get
    let (a, s, w) = runRWS (bcc code) 0 (i { level = level i + 1 })
    return w