(bind-func repeat_And_Wrap_String:[void,i8*,i64]*
(let ((line:|61,i8|* (alloc)))
(lambda (string_To_Repeat number_Of_Characters_To_Create)
(let ((string_To_Repeat_Length (strlen string_To_Repeat))
(extended_String_To_Repeat:i8* (salloc (+ string_To_Repeat_Length MAXIMUM_LINE_WIDTH)))
(column 0) (offset 0) (line_Length 0)
(current_Number_Of_Characters_To_Create number_Of_Characters_To_Create))
(dotimes (column (+ string_To_Repeat_Length MAXIMUM_LINE_WIDTH))
(pset! extended_String_To_Repeat column
(pref string_To_Repeat (% column string_To_Repeat_Length))))
(aset! line MAXIMUM_LINE_WIDTH #o012)