alias makearray() {
  var %input = $1-
  var %output = $null
  var %i = 1

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

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