alias arrow(len) {
  if (len*1 == len) {
    @:dots = []
    repeat $len {
      @dots #= [.]
      say $dots
    }
    repeat ${len-1} {
      @dots = left(${@dots-1} $dots)
      say $dots
    }
  }
}