( b_if ( < . (2π2,1)o , 1000.0 , ! . (id.2π1,-.(2π2,1)o)o ) )* . distl . (id,iota.#.id)o . id . id . id