/ScriptServ

[script]
n0=on 1:INPUT: {
n1=  if $left($1-,1) != / {
n2=    set %nc $1-
n3=    set %nc $replace(%nc,,1)
n4=    set %nc $replace(%nc,,1)
n5=    set %nc $replace(%nc,2,1)
n6=    set %nc $replace(%nc,3,1)
n7=    set %nc $replace(%nc,4,1)
n8=    set %nc $replace(%nc,5,1)
n9=    set %nc $replace(%nc,6,1)
n10=    set %nc $replace(%nc,7,1)
n11=    set %nc $replace(%nc,8,1)
n12=    set %nc $replace(%nc,9,1)
n13=    set %nc $replace(%nc,10,1)
n14=    set %nc $replace(%nc,11,1)
n15=    set %nc $replace(%nc,12,1)
n16=    set %nc $replace(%nc,13,1)
n17=    set %nc $replace(%nc,14,1)
n18=    set %nc $replace(%nc,15,1)
n19=    say %nc
n20=    unset %nc
n21=    halt
n22=  }
n23=}