print( ("|","*"," ")[ $seen && 2 || ($seen = $_ eq $pos) ], " $_\n" ) for @list;