lines

$dot lines method …: invokes method on each containing line object

obj method dot lines args {
  lmap line [my lines] {
    $line  {*}$args
  }
}