(setq intSystemLevelToString (lamba (percent modifier curve)
	(block (resultString itemLevel letter1 letter2 letter3 letter4 letter5 tempNumber letterIndex)

		(setq itemLevel (add (divide (multiply (sysGetLevel) percent) 100) modifier))

		(setq tempNumber (add (divide (add 1 itemLevel) 5) (subtract itemLevel 4)))

		(switch  
			(eq curve "b")
				(block Nil
					(setq letter1 "-")
					(setq letter2 "v")
					(setq letter3 "c")
					(setq letter4 "v")
					(setq letter5 "")
				)
			(eq curve "c")
				(block Nil
					(setq letter1 "v")
					(setq letter2 "u")
					(setq letter3 "c")
					(setq letter4 "u")
					(setq letter5 "v")
				)

			;default
			(block Nil
				(setq letter1 "-")
				(setq letter2 "-")
				(setq letter3 "c")
				(setq letter4 "")
				(setq letter5 "")
			)
		)

		(if (leq itemLevel 4)
			(setq itemLevel (cat itemLevel curve))
		)

		(switch
			(eq itemLevel "1a")
				(setq resultString "c")
			(eq itemLevel "1b")
				(setq resultString "cuv")
			(eq itemLevel "1c")
				(setq resultString "cu")

			(eq itemLevel "2a")
				(setq resultString "-c")
			(eq itemLevel "2b")
				(setq resultString "ucuv")
			(eq itemLevel "2c")
				(setq resultString "ucu")

			(eq itemLevel "3a")
				(setq resultString "--c")
			(eq itemLevel "3b")
				(setq resultString "vucuv")
			(eq itemLevel "3c")
				(setq resultString "-ucu")

			(eq itemLevel "4a")
				(setq resultString "---c")
			(eq itemLevel "4b")
				(setq resultString "-vucuv")
			(eq itemLevel "4c")
				(setq resultString "--ucu")

			;default and main loop

			(block Nil

				(setq resultString "")

				(for i 1 tempNumber
					(switch
						(eq 0 (modulus i 6))
								(setq resultString (cat resultString " "))								
						(setq resultString (cat resultString "-"))
					)
				)


				(setq letterIndex 1)
				;add the curve						
				(loop (leq letterIndex 5)
					(block Nil
						(setq tempNumber (add tempNumber 1))
						(if (eq 0 (modulus tempNumber 6))
							(block Nil
								(setq resultString (cat resultString " "))
							)
							(block Nil
								(setq resultString (cat resultString (eval (cat "letter" letterIndex))))
								(setq letterIndex (add letterIndex 1))
							)
						)
					)
				)


			;end of block
			)
		;end of switch
		)
		;return the result
		resultString
	;end of block
	)
))