gistfile1.txt

> (* + 5) + (* + 6)
# 0.returns: Whatever
# 1.returns: Int
# body arity: 
# sig arity: 1
# result arity: 1
# [0].returns: WhateverCode
# 0.returns: Whatever
# 1.returns: Int
# body arity: 
# sig arity: 1
# result arity: 1
# [0].returns: WhateverCode
# 0.returns: WhateverCode
# 1.returns: WhateverCode
# wc(1) + wc(1)
# left_arity: 1, right_arity: 1
# total_arity: 2
# (left) counter: 1
# (right) counter: 2
# body arity: 
# sig arity: 2
# result arity: 2

.HLL "perl6"

.namespace []
.sub "_block11"  :anon :subid("13_1277567424.36474")
    .param pmc param_72 :slurpy
.annotate 'line', 0
    .const 'Sub' $P15 = "14_1277567424.36474" 
    capture_lex $P15
.annotate 'line', 1
    get_hll_global $P13, "!UNIT_START"
    .const 'Sub' $P15 = "14_1277567424.36474" 
    capture_lex $P15
    .lex "@_", param_72
    .tailcall $P13($P15, param_72)
    .const 'Sub' $P77 = "22_1277567424.36474" 
    .return ($P77)
.end


.HLL "perl6"

.namespace []
.sub "_block14"  :anon :subid("14_1277567424.36474") :outer("13_1277567424.36474")
.annotate 'line', 1
    .const 'Sub' $P25 = "15_1277567424.36474" 
    capture_lex $P25
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P16
    find_lex_skip_current $P17, "$_"
    $P18 = new ['Perl6Scalar'], $P17
    setprop $P18, "rw", true
    .lex "$_", $P18
    find_lex_skip_current $P19, "$/"
    $P20 = new ['Perl6Scalar'], $P19
    setprop $P20, "rw", true
    .lex "$/", $P20
    find_lex_skip_current $P21, "$!"
    $P22 = new ['Perl6Scalar'], $P21
    setprop $P22, "rw", true
    .lex "$!", $P22
    get_hll_global $P23, "WhateverCode"
    .const 'Sub' $P25 = "15_1277567424.36474" 
    capture_lex $P25
    .const 'Sub' $P70 = "16_1277567424.36474" 
    $P71 = $P23."new"($P25, 0, $P70)
    .return ($P71)
.end


.HLL "perl6"

.namespace []
.sub "_block24"  :anon :subid("15_1277567424.36474") :outer("14_1277567424.36474")
    .param pmc param_26 :call_sig
.annotate 'line', 1
    .const 'Sub' $P54 = "19_1277567424.36474" 
    capture_lex $P54
    .const 'Sub' $P37 = "17_1277567424.36474" 
    capture_lex $P37
    .const 'Sub' $P31 = "16_1277567424.36474" 
    capture_lex $P31
    .lex "call_sig", param_26
    new $P27, "Perl6Scalar"
    .lex "$x1", $P27
    new $P28, "Perl6Scalar"
    .lex "$x2", $P28
    find_lex $P29, "call_sig"
    bind_signature $P29
    get_hll_global $P35, "WhateverCode"
    .const 'Sub' $P37 = "17_1277567424.36474" 
    capture_lex $P37
    .const 'Sub' $P48 = "18_1277567424.36474" 
    $P49 = $P35."new"($P37, 0, $P48)
    find_lex $P50, "$x1"
    $P51 = $P49($P50)
    get_hll_global $P52, "WhateverCode"
    .const 'Sub' $P54 = "19_1277567424.36474" 
    capture_lex $P54
    .const 'Sub' $P65 = "20_1277567424.36474" 
    $P66 = $P52."new"($P54, 0, $P65)
    find_lex $P67, "$x2"
    $P68 = $P66($P67)
    $P69 = "&infix:<+>"(, , $P51, $P68)
    .return ($P69)
.end


.HLL "perl6"

.namespace []
.sub "_block30"  :anon :subid("16_1277567424.36474") :outer("15_1277567424.36474")
.annotate 'line', 1
    $P32 = allocate_signature 2
    .local pmc signature_12
    set signature_12, $P32
    null $P0
    null $S0
    get_hll_global $P33, "Mu"
    set_signature_elem signature_12, 0, "$x1", 0, $P33, $P0, $P0, $P0, $P0, $P0, $S0
    get_hll_global $P34, "Mu"
    set_signature_elem signature_12, 1, "$x2", 0, $P34, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_12
    .return (signature)
.end


.HLL "perl6"

.namespace []
.sub "_block36"  :anon :subid("17_1277567424.36474") :outer("15_1277567424.36474")
    .param pmc param_38 :call_sig
.annotate 'line', 1
    .const 'Sub' $P42 = "18_1277567424.36474" 
    capture_lex $P42
    .lex "call_sig", param_38
    new $P39, "Perl6Scalar"
    .lex "$x", $P39
    find_lex $P40, "call_sig"
    bind_signature $P40
    find_lex $P45, "$x"
    new $P46, "Int"
    assign $P46, 5
    $P47 = "&infix:<+>"($P45, $P46)
    .return ($P47)
.end


.HLL "perl6"

.namespace []
.sub "_block41"  :anon :subid("18_1277567424.36474") :outer("17_1277567424.36474")
.annotate 'line', 1
    $P43 = allocate_signature 1
    .local pmc signature_10
    set signature_10, $P43
    null $P0
    null $S0
    get_hll_global $P44, "Mu"
    set_signature_elem signature_10, 0, "$x", 0, $P44, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_10
    .return (signature)
.end


.HLL "perl6"

.namespace []
.sub "_block53"  :anon :subid("19_1277567424.36474") :outer("15_1277567424.36474")
    .param pmc param_55 :call_sig
.annotate 'line', 1
    .const 'Sub' $P59 = "20_1277567424.36474" 
    capture_lex $P59
    .lex "call_sig", param_55
    new $P56, "Perl6Scalar"
    .lex "$x", $P56
    find_lex $P57, "call_sig"
    bind_signature $P57
    find_lex $P62, "$x"
    new $P63, "Int"
    assign $P63, 6
    $P64 = "&infix:<+>"($P62, $P63)
    .return ($P64)
.end


.HLL "perl6"

.namespace []
.sub "_block58"  :anon :subid("20_1277567424.36474") :outer("19_1277567424.36474")
.annotate 'line', 1
    $P60 = allocate_signature 1
    .local pmc signature_11
    set signature_11, $P60
    null $P0
    null $S0
    get_hll_global $P61, "Mu"
    set_signature_elem signature_11, 0, "$x", 0, $P61, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_11
    .return (signature)
.end


.HLL "perl6"

.namespace []
.sub "_block73" :load :init :anon :subid("21_1277567424.36474")
.annotate 'line', 1
    $P75 = "!fire_phasers"("CHECK")
    .return ($P75)
.end


.HLL "perl6"

.namespace []
.sub "_block76" :load :anon :subid("22_1277567424.36474")
.annotate 'line', 1
    .const 'Sub' $P78 = "13_1277567424.36474" 
    $P79 = "!UNIT_START"($P78)
    .return ($P79)
.end