getDlgItem :: HWND -> Exp Int -> Action HWND
getDlgItem a b = do
    v <- var
    Value a <- a
    Value b <- b
    emit $ GetDlgItem v a b
    return $ return $ Value $ val v
getDlgItem :: HWND -> Exp Int -> Action HWND
getDlgItem a b = do
    v <- var
    Value a <- a
    Value b <- b
    emit $ GetDlgItem v a b
    return $ return $ Value $ val v
getDlgItem a b = do
    v <- var
    Value a <- a
    Value b <- b
    emit $ GetDlgItem v a b
    return $ return $ Value $ val v