play_pass.rb

def play_pass str, n
  -> ψ, Φ {
    _ = $$ / $$
    α = [*?@...?[][_..-_]*''*(_+_)
    δ = [*?/...?:][_..-_]*''
    Σ = ''
    (λ = -> Θ {
      ξ = ψ[Θ]
      Σ = ((φ = α =~ /#{ξ}/) ?
           (Θ&_<_ ?α:[*?`...?{][_..-_]*(_+_) )[φ+Φ] :
             (φ = δ =~ /#{ξ}/) ?
           "#{(δ=~/$/)-φ-_}" : ξ) + Σ
      ψ[Θ+=_] ? λ[Θ] : Σ
    })[$.]
  }[str, n]
end