{
  set %nn $$1  
  set %n $len(%nn)
  if %n = 1 set %nn ---- $+ $$1 $+ ---- 
  if %n = 2 set %nn --- $+ $$1 $+ ---- 
  if %n = 3 set %nn --- $+ $$1 $+ --- 
  if %n = 4 set %nn -- $+ $$1 $+ --- 
  if %n = 5 set %nn -- $+ $$1 $+ -- 
  if %n = 6 set %nn - $+ $$1 $+ -- 
  if %n = 7 set %nn - $+ $$1 $+ - 
  if %n = 8 set %nn $$1 $+ - 
  me 4,1447_8_9_11.13*47.8*99999118*4.713*9.11_13_4_1. | /me 4,1447.8*911.13*48 %nn 13*9.11`8*4.1. | /me 4,1447:78:8888 %nn 889:911:1. | /me 4,1447`8*9.11`13*4.8 %nn 13*911.8*41. | /me 4,14478911`8*4.7`8*9.999911.8*47.13*9111341.
  halt
}
