sample(736,10) ( alloc <- sample(24) ) alloc[1:8] alloc[9:16] alloc[17:24] # Script created at 2017-12-27 09:35:04