Block Let numbers Iterate {i numbers} From {(OS.fetch_argc) 'nil} Let i [i - 1] In If [i < 1] numbers Match (Z.read (OS.fetch_arg i)) | 'just.n (Continue i [n & numbers]) | 'nothing (Continue i numbers) ; In (LIST.for_each (SORT.list_insertion Z.compare numbers) Func n (STDIO.print_line (Z.show n))) Where Let LIST Package "list" Let OS Package "os" Let SORT Package "sort" Let STDIO Package "stdio" Let Z Package "z"