USING: alien.syntax alien.c-types byte-arrays kernel strings ; IN: uuid LIBRARY: uuid FUNCTION: void uuid_generate ( char[16] out ) ; FUNCTION: void uuid_unparse ( char[16] out, char* out ) ; : uuid ( -- string ) 16 "char" dup uuid_generate 36 [ uuid_unparse ] keep >string ;