             utf16n decode
         ] if
     ] [ drop f ] if* ;
-    
+
 : process-list ( -- assoc )
     [
         TH32CS_SNAPALL do-snapshot

        f
        NtQueryInformationProcess drop
    ] keep ;
    
:: read-process-memory ( HANDLE alien offset len -- byte-array )
    HANDLE
    offset alien <displaced-alien>

        ] [
            handle
            args-offset
            "CommandLine" RTL_USER_PROCESS_PARAMETERS offset-of
            UNICODE_STRING heap-size
            read-process-memory
            [ handle ] dip
