bcc ((FOREIGNCALL l rty (FStr fn@('&':name)) []):xs) = do
    i <- get
    tell $ indent (level i) ++ c_irts (toFType rty) (creg l ++ " = ") fn ++ ";\n"
    bcc xs
bcc ((FOREIGNCALL l rty (FStr fn@('&':name)) []):xs) = do
    i <- get
    tell $ indent (level i) ++ c_irts (toFType rty) (creg l ++ " = ") fn ++ ";\n"
    bcc xs
bcc ((FOREIGNCALL l rty (FStr fn@('&':name)) []):xs) = do
    i <- get
    tell $ indent (level i) ++ c_irts (toFType rty) (creg l ++ " = ") fn ++ ";\n"
    bcc xs