#! /usr/bin/env raku
use v6;

use NativeCall;


sub RegQueryInfoKeyA(
Str,               # hKey 
#int32,             # lpClass
#int32,             # lpcchClass
#int32 is rw,       # lpcSubKeys
#`{
#int32 is rw,       # lpReserved
#int32 is rw,       # lpcSubKeys }
)
returns uint32 is native('Kernel32') { * }

my $blah = RegQueryInfoKeyA(
'HKEY_LOCAL_MACHINE',
#int32,
#0,
#
#
#
);
say $blah;

my $var := cglobal('Kernel32', 'HKEY_LOCAL_MACHINE', int32);
say $var;