* Rep-string
	strings = "1001110011 1110111011 0010010010 1010101010 1111111111 0100101101 0100100 101 11 00 1 "
	pat1 = (len(1) $ fc breakx(*fc)) $ x *x (arbno(*x) (rpos(0) | rem $ y *?(x ? y)))
getstring
	strings ? (break(" ") . rs len(1)) = :f(end)
	rs ? pat1 :s(yes)
	output = rs " is not a rep-string -> n/a" :(getstring)
yes
	output = rs " has shortest rep-string value of -> " x
	:(getstring)
end