! crates are in order anyway : parse-crates ( strings -- stacks ) [ " " split second ] map ;