list of strings from a string

[Freeman Gilmore]

\version "2.20.0"

#(define Z '())
j = #(define-void-function     % Starting form here.
     (x)
     (string>?)
     (set! Z x ))

 \j  "-3 A -6 1 -B"

#(define Y (string-split Z #\sp ))
  #(display Y)  #(newline)

  % Gives me this: (-3 A -6 1 -B), string-split => list, I do want a list but
  % I need: ("-3" "A" "-6" "1" "-B"), how do I get this?  A list of strings.

Thank you, ƒgl