Mine

alias makearray {
  var %output = $null
  var %i = 1

  while %i != $len(%1-) {
    %output = $instok(%output,$mid($1-,%i,1),-1,46)

    %i = %i + 1
  }
  return %output
}