scm like random for xtlang