alias py {
  var %i = $1
  while (%i != -1) {
    say $str($chr(160),%i) $+ $str(.,$calc($1 - %i)) $+ $str(.,$calc($1 - %i)) $+ $str($chr(160),%i)
    dec %i
  }
}