Walphis

"Pienso, luego existo" #DESCARTES

[wal-phisics]

ARN - COVID 19

AUUAAAGGUUUAUACCUUCCCAGGUAACAAACCAACCAACUUUCGAUCUCUUGUAGAUCUGUUCUCUAAACGAACUUUAAAAUCUGUGUGGCUGUCACUCGGCUGCAUGCUUAGUGCACUCACGCAGUAUAAUUAAUAACUAAUUACUGUCGUUGACAGGACACGAGUAACUCGUCUAUCUUCUGCAGGCUGCUUACGGUUUCGUCCGUGUUGCAGCCGAUCAUCAGCACAUCUAGGUUUCGUCCGGGUGUGACCGAAAGGUAAGAUGGAGAGCCUUGUCCCUGGUUUCAACGAGAAAACACACGUCCAACUCAGUUUGCCUGUUUUACAGGUUCGCGACGUGCUCGUACGUGGCUUUGGAGACUCCGUGGAGGAGGUCUUAUCAGAGGCACGUCAACAUCUUAAAGAUGGCACUUGUGGCUUAGUAGAAGUUGAAAAAGGCGUUUUGCCUCAACUUGAACAGCCCUAUGUGUUCAUCAAACGUUCGGAUGCUCGAACUGCACCUCAUGGUCAUGUUAUGGUUGAGCUGGUAGCAGAACUCGAAGGCAUUCAGUACGGUCGUAGUGGUGAGACACUUGGUGUCCUUGUCCCUCAUGUGGGCGAAAUACCAGUGGCUUACCGCAAGGUUCUUCUUCGUAAGAACGGUAAUAAAGGAGCUGGUGGCCAUAGUUACGGCGCCGAUCUAAAGUCAUUUGACUUAGGCGACGAGCUUGGCACUGAUCCUUAUGAAGAUUUUCAAGAAAACUGGAACACUAAACAUAGCAGUGGUGUUACCCGUGAACUCAUGCGUGAGCUUAACGGAGGGGCAUACACUCGCUAUGUCGAUAACAACUUCUGUGGCCCUGAUGGCUACCCUCUUGAGUGCAUUAAAGACCUUCUAGCACGUGCUGGUAAAGCUUCAUGCACUUUGUCCGAACAACUGGACUUUAUUGACACUAAGAGGGGUGUAUACUGCUGCCGUGAACAUGAGCAUGAAAUUGCUUGGUACACGGAACGUUCUGAAAAGAGCUAUGAAUUGCAGACACCUUUUGAAAUUAAAUUGGCAAAGAAAUUUGACACCUUCAAUGGGGAAUGUCCAAAUUUUGUAUUUCCCUUAAAUUCCAUAAUCAAGACUAUUCAACCAAGGGUUGAAAAGAAAAAGCUUGAUGGCUUUAUGGGUAGAAUUCGAUCUGUCUAUCCAGUUGCGUCACCAAAUGAAUGCAACCAAAUGUGCCUUUCAACUCUCAUGAAGUGUGAUCAUUGUGGUGAAACUUCAUGGCAGACGGGCGAUUUUGUUAAAGCCACUUGCGAAUUUUGUGGCACUGAGAAUUUGACUAAAGAAGGUGCCACUACUUGUGGUUACUUACCCCAAAAUGCUGUUGUUAAAAUUUAUUGUCCAGCAUGUCACAAUUCAGAAGUAGGACCUGAGCAUAGUCUUGCCGAAUACCAUAAUGAAUCUGGCUUGAAAACCAUUCUUCGUAAGGGUGGUCGCACUAUUGCCUUUGGAGGCUGUGUGUUCUCUUAUGUUGGUUGCCAUAACAAGUGUGCCUAUUGGGUUCCACGUGCUAGCGCUAACAUAGGUUGUAACCAUACAGGUGUUGUUGGAGAAGGUUCCGAAGGUCUUAAUGACAACCUUCUUGAAAUACUCCAAAAAGAGAAAGUCAACAUCAAUAUUGUUGGUGACUUUAAACUUAAUGAAGAGAUCGCCAUUAUUUUGGCAUCUUUUUCUGCUUCCACAAGUGCUUUUGUGGAAACUGUGAAAGGUUUGGAUUAUAAAGCAUUCAAACAAAUUGUUGAAUCCUGUGGUAAUUUUAAAGUUACAAAAGGAAAAGCUAAAAAAGGUGCCUGGAAUAUUGGUGAACAGAAAUCAAUACUGAGUCCUCUUUAUGCAUUUGCAUCAGAGGCUGCUCGUGUUGUACGAUCAAUUUUCUCCCGCACUCUUGAAACUGCUCAAAAUUCUGUGCGUGUUUUACAGAAGGCCGCUAUAACAAUACUAGAUGGAAUUUCACAGUAUUCACUGAGACUCAUUGAUGCUAUGAUGUUCACAUCUGAUUUGGCUACUAACAAUCUAGUUGUAAUGGCCUACAUUACAGGUGGUGUUGUUCAGUUGACUUCGCAGUGGCUAACUAACAUCUUUGGCACUGUUUAUGAAAAACUCAAACCCGUCCUUGAUUGGCUUGAAGAGAAGUUUAAGGAAGGUGUAGAGUUUCUUAGAGACGGUUGGGAAAUUGUUAAAUUUAUCUCAACCUGUGCUUGUGAAAUUGUCGGUGGACAAAUUGUCACCUGUGCAAAGGAAAUUAAGGAGAGUGUUCAGACAUUCUUUAAGCUUGUAAAUAAAUUUUUGGCUUUGUGUGCUGACUCUAUCAUUAUUGGUGGAGCUAAACUUAAAGCCUUGAAUUUAGGUGAAACAUUUGUCACGCACUCAAAGGGAUUGUACAGAAAGUGUGUUAAAUCCAGAGAAGAAACUGGCCUACUCAUGCCUCUAAAAGCCCCAAAAGAAAUUAUCUUCUUAGAGGGAGAAACACUUCCCACAGAAGUGUUAACAGAGGAAGUUGUCUUGAAAACUGGUGAUUUACAACCAUUAGAACAACCUACUAGUGAAGCUGUUGAAGCUCCAUUGGUUGGUACACCAGUUUGUAUUAACGGGCUUAUGUUGCUCGAAAUCAAAGACACAGAAAAGUACUGUGCCCUUGCACCUAAUAUGAUGGUAACAAACAAUACCUUCACACUCAAAGGCGGUGCACCAACAAAGGUUACUUUUGGUGAUGACACUGUGAUAGAAGUGCAAGGUUACAAGAGUGUGAAUAUCACUUUUGAACUUGAUGAAAGGAUUGAUAAAGUACUUAAUGAGAAGUGCUCUGCCUAUACAGUUGAACUCGGUACAGAAGUAAAUGAGUUCGCCUGUGUUGUGGCAGAUGCUGUCAUAAAAACUUUGCAACCAGUAUCUGAAUUACUUACACCACUGGGCAUUGAUUUAGAUGAGUGGAGUAUGGCUACAUACUACUUAUUUGAUGAGUCUGGUGAGUUUAAAUUGGCUUCACAUAUGUAUUGUUCUUUCUACCCUCCAGAUGAGGAUGAAGAAGAAGGUGAUUGUGAAGAAGAAGAGUUUGAGCCAUCAACUCAAUAUGAGUAUGGUACUGAAGAUGAUUACCAAGGUAAACCUUUGGAAUUUGGUGCCACUUCUGCUGCUCUUCAACCUGAAGAAGAGCAAGAAGAAGAUUGGUUAGAUGAUGAUAGUCAACAAACUGUUGGUCAACAAGACGGCAGUGAGGACAAUCAGACAACUACUAUUCAAACAAUUGUUGAGGUUCAACCUCAAUUAGAGAUGGAACUUACACCAGUUGUUCAGACUAUUGAAGUGAAUAGUUUUAGUGGUUAUUUAAAACUUACUGACAAUGUAUACAUUAAAAAUGCAGACAUUGUGGAAGAAGCUAAAAAGGUAAAACCAACAGUGGUUGUUAAUGCAGCCAAUGUUUACCUUAAACAUGGAGGAGGUGUUGCAGGAGCCUUAAAUAAGGCUACUAACAAUGCCAUGCAAGUUGAAUCUGAUGAUUACAUAGCUACUAAUGGACCACUUAAAGUGGGUGGUAGUUGUGUUUUAAGCGGACACAAUCUUGCUAAACACUGUCUUCAUGUUGUCGGCCCAAAUGUUAACAAAGGUGAAGACAUUCAACUUCUUAAGAGUGCUUAUGAAAAUUUUAAUCAGCACGAAGUUCUACUUGCACCAUUAUUAUCAGCUGGUAUUUUUGGUGCUGACCCUAUACAUUCUUUAAGAGUUUGUGUAGAUACUGUUCGCACAAAUGUCUACUUAGCUGUCUUUGAUAAAAAUCUCUAUGACAAACUUGUUUCAAGCUUUUUGGAAAUGAAGAGUGAAAAGCAAGUUGAACAAAAGAUCGCUGAGAUUCCUAAAGAGGAAGUUAAGCCAUUUAUAACUGAAAGUAAACCUUCAGUUGAACAGAGAAAACAAGAUGAUAAGAAAAUCAAAGCUUGUGUUGAAGAAGUUACAACAACUCUGGAAGAAACUAAGUUCCUCACAGAAAACUUGUUACUUUAUAUUGACAUUAAUGGCAAUCUUCAUCCAGAUUCUGCCACUCUUGUUAGUGACAUUGACAUCACUUUCUUAAAGAAAGAUGCUCCAUAUAUAGUGGGUGAUGUUGUUCAAGAGGGUGUUUUAACUGCUGUGGUUAUACCUACUAAAAAGGCUGGUGGCACUACUGAAAUGCUAGCGAAAGCUUUGAGAAAAGUGCCAACAGACAAUUAUAUAACCACUUACCCGGGUCAGGGUUUAAAUGGUUACACUGUAGAGGAGGCAAAGACAGUGCUUAAAAAGUGUAAAAGUGCCUUUUACAUUCUACCAUCUAUUAUCUCUAAUGAGAAGCAAGAAAUUCUUGGAACUGUUUCUUGGAAUUUGCGAGAAAUGCUUGCACAUGCAGAAGAAACACGCAAAUUAAUGCCUGUCUGUGUGGAAACUAAAGCCAUAGUUUCAACUAUACAGCGUAAAUAUAAGGGUAUUAAAAUACAAGAGGGUGUGGUUGAUUAUGGUGCUAGAUUUUACUUUUACACCAGUAAAACAACUGUAGCGUCACUUAUCAACACACUUAACGAUCUAAAUGAAACUCUUGUUACAAUGCCACUUGGCUAUGUAACACAUGGCUUAAAUUUGGAAGAAGCUGCUCGGUAUAUGAGAUCUCUCAAAGUGCCAGCUACAGUUUCUGUUUCUUCACCUGAUGCUGUUACAGCGUAUAAUGGUUAUCUUACUUCUUCUUCUAAAACACCUGAAGAACAUUUUAUUGAAACCAUCUCACUUGCUGGUUCCUAUAAAGAUUGGUCCUAUUCUGGACAAUCUACACAACUAGGUAUAGAAUUUCUUAAGAGAGGUGAUAAAAGUGUAUAUUACACUAGUAAUCCUACCACAUUCCACCUAGAUGGUGAAGUUAUCACCUUUGACAAUCUUAAGACACUUCUUUCUUUGAGAGAAGUGAGGACUAUUAAGGUGUUUACAACAGUAGACAACAUUAACCUCCACACGCAAGUUGUGGACAUGUCAAUGACAUAUGGACAACAGUUUGGUCCAACUUAUUUGGAUGGAGCUGAUGUUACUAAAAUAAAACCUCAUAAUUCACAUGAAGGUAAAACAUUUUAUGUUUUACCUAAUGAUGACACUCUACGUGUUGAGGCUUUUGAGUACUACCACACAACUGAUCCUAGUUUUCUGGGUAGGUACAUGUCAGCAUUAAAUCACACUAAAAAGUGGAAAUACCCACAAGUUAAUGGUUUAACUUCUAUUAAAUGGGCAGAUAACAACUGUUAUCUUGCCACUGCAUUGUUAACACUCCAACAAAUAGAGUUGAAGUUUAAUCCACCUGCUCUACAAGAUGCUUAUUACAGAGCAAGGGCUGGUGAAGCUGCUAACUUUUGUGCACUUAUCUUAGCCUACUGUAAUAAGACAGUAGGUGAGUUAGGUGAUGUUAGAGAAACAAUGAGUUACUUGUUUCAACAUGCCAAUUUAGAUUCUUGCAAAAGAGUCUUGAACGUGGUGUGUAAAACUUGUGGACAACAGCAGACAACCCUUAAGGGUGUAGAAGCUGUUAUGUACAUGGGCACACUUUCUUAUGAACAAUUUAAGAAAGGUGUUCAGAUACCUUGUACGUGUGGUAAACAAGCUACAAAAUAUCUAGUACAACAGGAGUCACCUUUUGUUAUGAUGUCAGCACCACCUGCUCAGUAUGAACUUAAGCAUGGUACAUUUACUUGUGCUAGUGAGUACACUGGUAAUUACCAGUGUGGUCACUAUAAACAUAUAACUUCUAAAGAAACUUUGUAUUGCAUAGACGGUGCUUUACUUACAAAGUCCUCAGAAUACAAAGGUCCUAUUACGGAUGUUUUCUACAAAGAAAACAGUUACACAACAACCAUAAAACCAGUUACUUAUAAAUUGGAUGGUGUUGUUUGUACAGAAAUUGACCCUAAGUUGGACAAUUAUUAUAAGAAAGACAAUUCUUAUUUCACAGAGCAACCAAUUGAUCUUGUACCAAACCAACCAUAUCCAAACGCAAGCUUCGAUAAUUUUAAGUUUGUAUGUGAUAAUAUCAAAUUUGCUGAUGAUUUAAACCAGUUAACUGGUUAUAAGAAACCUGCUUCAAGAGAGCUUAAAGUUACAUUUUUCCCUGACUUAAAUGGUGAUGUGGUGGCUAUUGAUUAUAAACACUACACACCCUCUUUUAAGAAAGGAGCUAAAUUGUUACAUAAACCUAUUGUUUGGCAUGUUAACAAUGCAACUAAUAAAGCCACGUAUAAACCAAAUACCUGGUGUAUACGUUGUCUUUGGAGCACAAAACCAGUUGAAACAUCAAAUUCGUUUGAUGUACUGAAGUCAGAGGACGCGCAGGGAAUGGAUAAUCUUGCCUGCGAAGAUCUAAAACCAGUCUCUGAAGAAGUAGUGGAAAAUCCUACCAUACAGAAAGACGUUCUUGAGUGUAAUGUGAAAACUACCGAAGUUGUAGGAGACAUUAUACUUAAACCAGCAAAUAAUAGUUUAAAAAUUACAGAAGAGGUUGGCCACACAGAUCUAAUGGCUGCUUAUGUAGACAAUUCUAGUCUUACUAUUAAGAAACCUAAUGAAUUAUCUAGAGUAUUAGGUUUGAAAACCCUUGCUACUCAUGGUUUAGCUGCUGUUAAUAGUGUCCCUUGGGAUACUAUAGCUAAUUAUGCUAAGCCUUUUCUUAACAAAGUUGUUAGUACAACUACUAACAUAGUUACACGGUGUUUAAACCGUGUUUGUACUAAUUAUAUGCCUUAUUUCUUUACUUUAUUGCUACAAUUGUGUACUUUUACUAGAAGUACAAAUUCUAGAAUUAAAGCAUCUAUGCCGACUACUAUAGCAAAGAAUACUGUUAAGAGUGUCGGUAAAUUUUGUCUAGAGGCUUCAUUUAAUUAUUUGAAGUCACCUAAUUUUUCUAAACUGAUAAAUAUUAUAAUUUGGUUUUUACUAUUAAGUGUUUGCCUAGGUUCUUUAAUCUACUCAACCGCUGCUUUAGGUGUUUUAAUGUCUAAUUUAGGCAUGCCUUCUUACUGUACUGGUUACAGAGAAGGCUAUUUGAACUCUACUAAUGUCACUAUUGCAACCUACUGUACUGGUUCUAUACCUUGUAGUGUUUGUCUUAGUGGUUUAGAUUCUUUAGACACCUAUCCUUCUUUAGAAACUAUACAAAUUACCAUUUCAUCUUUUAAAUGGGAUUUAACUGCUUUUGGCUUAGUUGCAGAGUGGUUUUUGGCAUAUAUUCUUUUCACUAGGUUUUUCUAUGUACUUGGAUUGGCUGCAAUCAUGCAAUUGUUUUUCAGCUAUUUUGCAGUACAUUUUAUUAGUAAUUCUUGGCUUAUGUGGUUAAUAAUUAAUCUUGUACAAAUGGCCCCGAUUUCAGCUAUGGUUAGAAUGUACAUCUUCUUUGCAUCAUUUUAUUAUGUAUGGAAAAGUUAUGUGCAUGUUGUAGACGGUUGUAAUUCAUCAACUUGUAUGAUGUGUUACAAACGUAAUAGAGCAACAAGAGUCGAAUGUACAACUAUUGUUAAUGGUGUUAGAAGGUCCUUUUAUGUCUAUGCUAAUGGAGGUAAAGGCUUUUGCAAACUACACAAUUGGAAUUGUGUUAAUUGUGAUACAUUCUGUGCUGGUAGUACAUUUAUUAGUGAUGAAGUUGCGAGAGACUUGUCACUACAGUUUAAAAGACCAAUAAAUCCUACUGACCAGUCUUCUUACAUCGUUGAUAGUGUUACAGUGAAGAAUGGUUCCAUCCAUCUUUACUUUGAUAAAGCUGGUCAAAAGACUUAUGAAAGACAUUCUCUCUCUCAUUUUGUUAACUUAGACAACCUGAGAGCUAAUAACACUAAAGGUUCAUUGCCUAUUAAUGUUAUAGUUUUUGAUGGUAAAUCAAAAUGUGAAGAAUCAUCUGCAAAAUCAGCGUCUGUUUACUACAGUCAGCUUAUGUGUCAACCUAUACUGUUACUAGAUCAGGCAUUAGUGUCUGAUGUUGGUGAUAGUGCGGAAGUUGCAGUUAAAAUGUUUGAUGCUUACGUUAAUACGUUUUCAUCAACUUUUAACGUACCAAUGGAAAAACUCAAAACACUAGUUGCAACUGCAGAAGCUGAACUUGCAAAGAAUGUGUCCUUAGACAAUGUCUUAUCUACUUUUAUUUCAGCAGCUCGGCAAGGGUUUGUUGAUUCAGAUGUAGAAACUAAAGAUGUUGUUGAAUGUCUUAAAUUGUCACAUCAAUCUGACAUAGAAGUUACUGGCGAUAGUUGUAAUAACUAUAUGCUCACCUAUAACAAAGUUGAAAACAUGACACCCCGUGACCUUGGUGCUUGUAUUGACUGUAGUGCGCGUCAUAUUAAUGCGCAGGUAGCAAAAAGUCACAACAUUGCUUUGAUAUGGAACGUUAAAGAUUUCAUGUCAUUGUCUGAACAACUACGAAAACAAAUACGUAGUGCUGCUAAAAAGAAUAACUUACCUUUUAAGUUGACAUGUGCAACUACUAGACAAGUUGUUAAUGUUGUAACAACAAAGAUAGCACUUAAGGGUGGUAAAAUUGUUAAUAAUUGGUUGAAGCAGUUAAUUAAAGUUACACUUGUGUUCCUUUUUGUUGCUGCUAUUUUCUAUUUAAUAACACCUGUUCAUGUCAUGUCUAAACAUACUGACUUUUCAAGUGAAAUCAUAGGAUACAAGGCUAUUGAUGGUGGUGUCACUCGUGACAUAGCAUCUACAGAUACUUGUUUUGCUAACAAACAUGCUGAUUUUGACACAUGGUUUAGCCAGCGUGGUGGUAGUUAUACUAAUGACAAAGCUUGCCCAUUGAUUGCUGCAGUCAUAACAAGAGAAGUGGGUUUUGUCGUGCCUGGUUUGCCUGGCACGAUAUUACGCACAACUAAUGGUGACUUUUUGCAUUUCUUACCUAGAGUUUUUAGUGCAGUUGGUAACAUCUGUUACACACCAUCAAAACUUAUAGAGUACACUGACUUUGCAACAUCAGCUUGUGUUUUGGCUGCUGAAUGUACAAUUUUUAAAGAUGCUUCUGGUAAGCCAGUACCAUAUUGUUAUGAUACCAAUGUACUAGAAGGUUCUGUUGCUUAUGAAAGUUUACGCCCUGACACACGUUAUGUGCUCAUGGAUGGCUCUAUUAUUCAAUUUCCUAACACCUACCUUGAAGGUUCUGUUAGAGUGGUAACAACUUUUGAUUCUGAGUACUGUAGGCACGGCACUUGUGAAAGAUCAGAAGCUGGUGUUUGUGUAUCUACUAGUGGUAGAUGGGUACUUAACAAUGAUUAUUACAGAUCUUUACCAGGAGUUUUCUGUGGUGUAGAUGCUGUAAAUUUACUUACUAAUAUGUUUACACCACUAAUUCAACCUAUUGGUGCUUUGGACAUAUCAGCAUCUAUAGUAGCUGGUGGUAUUGUAGCUAUCGUAGUAACAUGCCUUGCCUACUAUUUUAUGAGGUUUAGAAGAGCUUUUGGUGAAUACAGUCAUGUAGUUGCCUUUAAUACUUUACUAUUCCUUAUGUCAUUCACUGUACUCUGUUUAACACCAGUUUACUCAUUCUUACCUGGUGUUUAUUCUGUUAUUUACUUGUACUUGACAUUUUAUCUUACUAAUGAUGUUUCUUUUUUAGCACAUAUUCAGUGGAUGGUUAUGUUCACACCUUUAGUACCUUUCUGGAUAACAAUUGCUUAUAUCAUUUGUAUUUCCACAAAGCAUUUCUAUUGGUUCUUUAGUAAUUACCUAAAGAGACGUGUAGUCUUUAAUGGUGUUUCCUUUAGUACUUUUGAAGAAGCUGCGCUGUGCACCUUUUUGUUAAAUAAAGAAAUGUAUCUAAAGUUGCGUAGUGAUGUGCUAUUACCUCUUACGCAAUAUAAUAGAUACUUAGCUCUUUAUAAUAAGUACAAGUAUUUUAGUGGAGCAAUGGAUACAACUAGCUACAGAGAAGCUGCUUGUUGUCAUCUCGCAAAGGCUCUCAAUGACUUCAGUAACUCAGGUUCUGAUGUUCUUUACCAACCACCACAAACCUCUAUCACCUCAGCUGUUUUGCAGAGUGGUUUUAGAAAAAUGGCAUUCCCAUCUGGUAAAGUUGAGGGUUGUAUGGUACAAGUAACUUGUGGUACAACUACACUUAACGGUCUUUGGCUUGAUGACGUAGUUUACUGUCCAAGACAUGUGAUCUGCACCUCUGAAGACAUGCUUAACCCUAAUUAUGAAGAUUUACUCAUUCGUAAGUCUAAUCAUAAUUUCUUGGUACAGGCUGGUAAUGUUCAACUCAGGGUUAUUGGACAUUCUAUGCAAAAUUGUGUACUUAAGCUUAAGGUUGAUACAGCCAAUCCUAAGACACCUAAGUAUAAGUUUGUUCGCAUUCAACCAGGACAGACUUUUUCAGUGUUAGCUUGUUACAAUGGUUCACCAUCUGGUGUUUACCAAUGUGCUAUGAGGCCCAAUUUCACUAUUAAGGGUUCAUUCCUUAAUGGUUCAUGUGGUAGUGUUGGUUUUAACAUAGAUUAUGACUGUGUCUCUUUUUGUUACAUGCACCAUAUGGAAUUACCAACUGGAGUUCAUGCUGGCACAGACUUAGAAGGUAACUUUUAUGGACCUUUUGUUGACAGGCAAACAGCACAAGCAGCUGGUACGGACACAACUAUUACAGUUAAUGUUUUAGCUUGGUUGUACGCUGCUGUUAUAAAUGGAGACAGGUGGUUUCUCAAUCGAUUUACCACAACUCUUAAUGACUUUAACCUUGUGGCUAUGAAGUACAAUUAUGAACCUCUAACACAAGACCAUGUUGACAUACUAGGACCUCUUUCUGCUCAAACUGGAAUUGCCGUUUUAGAUAUGUGUGCUUCAUUAAAAGAAUUACUGCAAAAUGGUAUGAAUGGACGUACCAUAUUGGGUAGUGCUUUAUUAGAAGAUGAAUUUACACCUUUUGAUGUUGUUAGACAAUGCUCAGGUGUUACUUUCCAAAGUGCAGUGAAAAGAACAAUCAAGGGUACACACCACUGGUUGUUACUCACAAUUUUGACUUCACUUUUAGUUUUAGUCCAGAGUACUCAAUGGUCUUUGUUCUUUUUUUUGUAUGAAAAUGCCUUUUUACCUUUUGCUAUGGGUAUUAUUGCUAUGUCUGCUUUUGCAAUGAUGUUUGUCAAACAUAAGCAUGCAUUUCUCUGUUUGUUUUUGUUACCUUCUCUUGCCACUGUAGCUUAUUUUAAUAUGGUCUAUAUGCCUGCUAGUUGGGUGAUGCGUAUUAUGACAUGGUUGGAUAUGGUUGAUACUAGUUUGUCUGGUUUUAAGCUAAAAGACUGUGUUAUGUAUGCAUCAGCUGUAGUGUUACUAAUCCUUAUGACAGCAAGAACUGUGUAUGAUGAUGGUGCUAGGAGAGUGUGGACACUUAUGAAUGUCUUGACACUCGUUUAUAAAGUUUAUUAUGGUAAUGCUUUAGAUCAAGCCAUUUCCAUGUGGGCUCUUAUAAUCUCUGUUACUUCUAACUACUCAGGUGUAGUUACAACUGUCAUGUUUUUGGCCAGAGGUAUUGUUUUUAUGUGUGUUGAGUAUUGCCCUAUUUUCUUCAUAACUGGUAAUACACUUCAGUGUAUAAUGCUAGUUUAUUGUUUCUUAGGCUAUUUUUGUACUUGUUACUUUGGCCUCUUUUGUUUACUCAACCGCUACUUUAGACUGACUCUUGGUGUUUAUGAUUACUUAGUUUCUACACAGGAGUUUAGAUAUAUGAAUUCACAGGGACUACUCCCACCCAAGAAUAGCAUAGAUGCCUUCAAACUCAACAUUAAAUUGUUGGGUGUUGGUGGCAAACCUUGUAUCAAAGUAGCCACUGUACAGUCUAAAAUGUCAGAUGUAAAGUGCACAUCAGUAGUCUUACUCUCAGUUUUGCAACAACUCAGAGUAGAAUCAUCAUCUAAAUUGUGGGCUCAAUGUGUCCAGUUACACAAUGACAUUCUCUUAGCUAAAGAUACUACUGAAGCCUUUGAAAAAAUGGUUUCACUACUUUCUGUUUUGCUUUCCAUGCAGGGUGCUGUAGACAUAAACAAGCUUUGUGAAGAAAUGCUGGACAACAGGGCAACCUUACAAGCUAUAGCCUCAGAGUUUAGUUCCCUUCCAUCAUAUGCAGCUUUUGCUACUGCUCAAGAAGCUUAUGAGCAGGCUGUUGCUAAUGGUGAUUCUGAAGUUGUUCUUAAAAAGUUGAAGAAGUCUUUGAAUGUGGCUAAAUCUGAAUUUGACCGUGAUGCAGCCAUGCAACGUAAGUUGGAAAAGAUGGCUGAUCAAGCUAUGACCCAAAUGUAUAAACAGGCUAGAUCUGAGGACAAGAGGGCAAAAGUUACUAGUGCUAUGCAGACAAUGCUUUUCACUAUGCUUAGAAAGUUGGAUAAUGAUGCACUCAACAACAUUAUCAACAAUGCAAGAGAUGGUUGUGUUCCCUUGAACAUAAUACCUCUUACAACAGCAGCCAAACUAAUGGUUGUCAUACCAGACUAUAACACAUAUAAAAAUACGUGUGAUGGUACAACAUUUACUUAUGCAUCAGCAUUGUGGGAAAUCCAACAGGUUGUAGAUGCAGAUAGUAAAAUUGUUCAACUUAGUGAAAUUAGUAUGGACAAUUCACCUAAUUUAGCAUGGCCUCUUAUUGUAACAGCUUUAAGGGCCAAUUCUGCUGUCAAAUUACAGAAUAAUGAGCUUAGUCCUGUUGCACUACGACAGAUGUCUUGUGCUGCCGGUACUACACAAACUGCUUGCACUGAUGACAAUGCGUUAGCUUACUACAACACAACAAAGGGAGGUAGGUUUGUACUUGCACUGUUAUCCGAUUUACAGGAUUUGAAAUGGGCUAGAUUCCCUAAGAGUGAUGGAACUGGUACUAUCUAUACAGAACUGGAACCACCUUGUAGGUUUGUUACAGACACACCUAAAGGUCCUAAAGUGAAGUAUUUAUACUUUAUUAAAGGAUUAAACAACCUAAAUAGAGGUAUGGUACUUGGUAGUUUAGCUGCCACAGUACGUCUACAAGCUGGUAAUGCAACAGAAGUGCCUGCCAAUUCAACUGUAUUAUCUUUCUGUGCUUUUGCUGUAGAUGCUGCUAAAGCUUACAAAGAUUAUCUAGCUAGUGGGGGACAACCAAUCACUAAUUGUGUUAAGAUGUUGUGUACACACACUGGUACUGGUCAGGCAAUAACAGUUACACCGGAAGCCAAUAUGGAUCAAGAAUCCUUUGGUGGUGCAUCGUGUUGUCUGUACUGCCGUUGCCACAUAGAUCAUCCAAAUCCUAAAGGAUUUUGUGACUUAAAAGGUAAGUAUGUACAAAUACCUACAACUUGUGCUAAUGACCCUGUGGGUUUUACACUUAAAAACACAGUCUGUACCGUCUGCGGUAUGUGGAAAGGUUAUGGCUGUAGUUGUGAUCAACUCCGCGAACCCAUGCUUCAGUCAGCUGAUGCACAAUCGUUUUUAAACGGGUUUGCGGUGUAAGUGCAGCCCGUCUUACACCGUGCGGCACAGGCACUAGUACUGAUGUCGUAUACAGGGCUUUUGACAUCUACAAUGAUAAAGUAGCUGGUUUUGCUAAAUUCCUAAAAACUAAUUGUUGUCGCUUCCAAGAAAAGGACGAAGAUGACAAUUUAAUUGAUUCUUACUUUGUAGUUAAGAGACACACUUUCUCUAACUACCAACAUGAAGAAACAAUUUAUAAUUUACUUAAGGAUUGUCCAGCUGUUGCUAAACAUGACUUCUUUAAGUUUAGAAUAGACGGUGACAUGGUACCACAUAUAUCACGUCAACGUCUUACUAAAUACACAAUGGCAGACCUCGUCUAUGCUUUAAGGCAUUUUGAUGAAGGUAAUUGUGACACAUUAAAAGAAAUACUUGUCACAUACAAUUGUUGUGAUGAUGAUUAUUUCAAUAAAAAGGACUGGUAUGAUUUUGUAGAAAACCCAGAUAUAUUACGCGUAUACGCCAACUUAGGUGAACGUGUACGCCAAGCUUUGUUAAAAACAGUACAAUUCUGUGAUGCCAUGCGAAAUGCUGGUAUUGUUGGUGUACUGACAUUAGAUAAUCAAGAUCUCAAUGGUAACUGGUAUGAUUUCGGUGAUUUCAUACAAACCACGCCAGGUAGUGGAGUUCCUGUUGUAGAUUCUUAUUAUUCAUUGUUAAUGCCUAUAUUAACCUUGACCAGGGCUUUAACUGCAGAGUCACAUGUUGACACUGACUUAACAAAGCCUUACAUUAAGUGGGAUUUGUUAAAAUAUGACUUCACGGAAGAGAGGUUAAAACUCUUUGACCGUUAUUUUAAAUAUUGGGAUCAGACAUACCACCCAAAUUGUGUUAACUGUUUGGAUGACAGAUGCAUUCUGCAUUGUGCAAACUUUAAUGUUUUAUUCUCUACAGUGUUCCCACCUACAAGUUUUGGACCACUAGUGAGAAAAAUAUUUGUUGAUGGUGUUCCAUUUGUAGUUUCAACUGGAUACCACUUCAGAGAGCUAGGUGUUGUACAUAAUCAGGAUGUAAACUUACAUAGCUCUAGACUUAGUUUUAAGGAAUUACUUGUGUAUGCUGCUGACCCUGCUAUGCACGCUGCUUCUGGUAAUCUAUUACUAGAUAAACGCACUACGUGCUUUUCAGUAGCUGCACUUACUAACAAUGUUGCUUUUCAAACUGUCAAACCCGGUAAUUUUAACAAAGACUUCUAUGACUUUGCUGUGUCUAAGGGUUUCUUUAAGGAAGGAAGUUCUGUUGAAUUAAAACACUUCUUCUUUGCUCAGGAUGGUAAUGCUGCUAUCAGCGAUUAUGACUACUAUCGUUAUAAUCUACCAACAAUGUGUGAUAUCAGACAACUACUAUUUGUAGUUGAAGUUGUUGAUAAGUACUUUGAUUGUUACGAUGGUGGCUGUAUUAAUGCUAACCAAGUCAUCGUCAACAACCUAGACAAAUCAGCUGGUUUUCCAUUUAAUAAAUGGGGUAAGGCUAGACUUUAUUAUGAUUCAAUGAGUUAUGAGGAUCAAGAUGCACUUUUCGCAUAUACAAAACGUAAUGUCAUCCCUACUAUAACUCAAAUGAAUCUUAAGUAUGCCAUUAGUGCAAAGAAUAGAGCUCGCACCGUAGCUGGUGUCUCUAUCUGUAGUACUAUGACCAAUAGACAGUUUCAUCAAAAAUUAUUGAAAUCAAUAGCCGCCACUAGAGGAGCUACUGUAGUAAUUGGAACAAGCAAAUUCUAUGGUGGUUGGCACAACAUGUUAAAAACUGUUUAUAGUGAUGUAGAAAACCCUCACCUUAUGGGUUGGGAUUAUCCUAAAUGUGAUAGAGCCAUGCCUAACAUGCUUAGAAUUAUGGCCUCACUUGUUCUUGCUCGCAAACAUACAACGUGUUGUAGCUUGUCACACCGUUUCUAUAGAUUAGCUAAUGAGUGUGCUCAAGUAUUGAGUGAAAUGGUCAUGUGUGGCGGUUCACUAUAUGUUAAACCAGGUGGAACCUCAUCAGGAGAUGCCACAACUGCUUAUGCUAAUAGUGUUUUUAACAUUUGUCAAGCUGUCACGGCCAAUGUUAAUGCACUUUUAUCUACUGAUGGUAACAAAAUUGCCGAUAAGUAUGUCCGCAAUUUACAACACAGACUUUAUGAGUGUCUCUAUAGAAAUAGAGAUGUUGACACAGACUUUGUGAAUGAGUUUUACGCAUAUUUGCGUAAACAUUUCUCAAUGAUGAUACUCUCUGACGAUGCUGUUGUGUGUUUCAAUAGCACUUAUGCAUCUCAAGGUCUAGUGGCUAGCAUAAAGAACUUUAAGUCAGUUCUUUAUUAUCAAAACAAUGUUUUUAUGUCUGAAGCAAAAUGUUGGACUGAGACUGACCUUACUAAAGGACCUCAUGAAUUUUGCUCUCAACAUACAAUGCUAGUUAAACAGGGUGAUGAUUAUGUGUACCUUCCUUACCCAGAUCCAUCAAGAAUCCUAGGGGCCGGCUGUUUUGUAGAUGAUAUCGUAAAAACAGAUGGUACACUUAUGAUUGAACGGUUCGUGUCUUUAGCUAUAGAUGCUUACCCACUUACUAAACAUCCUAAUCAGGAGUAUGCUGAUGUCUUUCAUUUGUACUUACAAUACAUAAGAAAGCUACAUGAUGAGUUAACAGGACACAUGUUAGACAUGUAUUCUGUUAUGCUUACUAAUGAUAACACUUCAAGGUAUUGGGAACCUGAGUUUUAUGAGGCUAUGUACACACCGCAUACAGUCUUACAGGCUGUUGGGGCUUGUGUUCUUUGCAAUUCACAGACUUCAUUAAGAUGUGGUGCUUGCAUACGUAGACCAUUCUUAUGUUGUAAAUGCUGUUACGACCAUGUCAUAUCAACAUCACAUAAAUUAGUCUUGUCUGUUAAUCCGUAUGUUUGCAAUGCUCCAGGUUGUGAUGUCACAGAUGUGACUCAACUUUACUUAGGAGGUAUGAGCUAUUAUUGUAAAUCACAUAAACCACCCAUUAGUUUUCCAUUGUGUGCUAAUGGACAAGUUUUUGGUUUAUAUAAAAAUACAUGUGUUGGUAGCGAUAAUGUUACUGACUUUAAUGCAAUUGCAACAUGUGACUGGACAAAUGCUGGUGAUUACAUUUUAGCUAACACCUGUACUGAAAGACUCAAGCUUUUUGCAGCAGAAACGCUCAAAGCUACUGAGGAGACAUUUAAACUGUCUUAUGGUAUUGCUACUGUACGUGAAGUGCUGUCUGACAGAGAAUUACAUCUUUCAUGGGAAGUUGGUAAACCUAGACCACCACUUAACCGAAAUUAUGUCUUUACUGGUUAUCGUGUAACUAAAAACAGUAAAGUACAAAUAGGAGAGUACACCUUUGAAAAAGGUGACUAUGGUGAUGCUGUUGUUUACCGAGGUACAACAACUUACAAAUUAAAUGUUGGUGAUUAUUUUGUGCUGACAUCACAUACAGUAAUGCCAUUAAGUGCACCUACACUAGUGCCACAAGAGCACUAUGUUAGAAUUACUGGCUUAUACCCAACACUCAAUAUCUCAGAUGAGUUUUCUAGCAAUGUUGCAAAUUAUCAAAAGGUUGGUAUGCAAAAGUAUUCUACACUCCAGGGACCACCUGGUACUGGUAAGAGUCAUUUUGCUAUUGGCCUAGCUCUCUACUACCCUUCUGCUCGCAUAGUGUAUACAGCUUGCUCUCAUGCCGCUGUUGAUGCACUAUGUGAGAAGGCAUUAAAAUAUUUGCCUAUAGAUAAAUGUAGUAGAAUUAUACCUGCACGUGCUCGUGUAGAGUGUUUUGAUAAAUUCAAAGUGAAUUCAACAUUAGAACAGUAUGUCUUUUGUACUGUAAAUGCAUUGCCUGAGACGACAGCAGAUAUAGUUGUCUUUGAUGAAAUUUCAAUGGCCACAAAUUAUGAUUUGAGUGUUGUCAAUGCCAGAUUACGUGCUAAGCACUAUGUGUACAUUGGCGACCCUGCUCAAUUACCUGCACCACGCACAUUGCUAACUAAGGGCACACUAGAACCAGAAUAUUUCAAUUCAGUGUGUAGACUUAUGAAAACUAUAGGUCCAGACAUGUUCCUCGGAACUUGUCGGCGUUGUCCUGCUGAAAUUGUUGACACUGUGAGUGCUUUGGUUUAUGAUAAUAAGCUUAAAGCACAUAAAGACAAAUCAGCUCAAUGCUUUAAAAUGUUUUAUAAGGGUGUUAUCACGCAUGAUGUUUCAUCUGCAAUUAACAGGCCACAAAUAGGCGUGGUAAGAGAAUUCCUUACACGUAACCCUGCUUGGAGAAAAGCUGUCUUUAUUUCACCUUAUAAUUCACAGAAUGCUGUAGCCUCAAAGAUUUUGGGACUACCAACUCAAACUGUUGAUUCAUCACAGGGCUCAGAAUAUGACUAUGUCAUAUUCACUCAAACCACUGAAACAGCUCACUCUUGUAAUGUAAACAGAUUUAAUGUUGCUAUUACCAGAGCAAAAGUAGGCAUACUUUGCAUAAUGUCUGAUAGAGACCUUUAUGACAAGUUGCAAUUUACAAGUCUUGAAAUUCCACGUAGGAAUGUGGCAACUUUACAAGCUGAAAAUGUAACAGGACUCUUUAAAGAUUGUAGUAAGGUAAUCACUGGGUUACAUCCUACACAGGCACCUACACACCUCAGUGUUGACACUAAAUUCAAAACUGAAGGUUUAUGUGUUGACAUACCUGGCAUACCUAAGGACAUGACCUAUAGAAGACUCAUCUCUAUGAUGGGUUUUAAAAUGAAUUAUCAAGUUAAUGGUUACCCUAACAUGUUUAUCACCCGCGAAGAAGCUAUAAGACAUGUACGUGCAUGGAUUGGCUUCGAUGUCGAGGGGUGUCAUGCUACUAGAGAAGCUGUUGGUACCAAUUUACCUUUACAGCUAGGUUUUUCUACAGGUGUUAACCUAGUUGCUGUACCUACAGGUUAUGUUGAUACACCUAAUAAUACAGAUUUUUCCAGAGUUAGUGCUAAACCACCGCCUGGAGAUCAAUUUAAACACCUCAUACCACUUAUGUACAAAGGACUUCCUUGGAAUGUAGUGCGUAUAAAGAUUGUACAAAUGUUAAGUGACACACUUAAAAAUCUCUCUGACAGAGUCGUAUUUGUCUUAUGGGCACAUGGCUUUGAGUUGACAUCUAUGAAGUAUUUUGUGAAAAUAGGACCUGAGCGCACCUGUUGUCUAUGUGAUAGACGUGCCACAUGCUUUUCCACUGCUUCAGACACUUAUGCCUGUUGGCAUCAUUCUAUUGGAUUUGAUUACGUCUAUAAUCCGUUUAUGAUUGAUGUUCAACAAUGGGGUUUUACAGGUAACCUACAAAGCAACCAUGAUCUGUAUUGUCAAGUCCAUGGUAAUGCACAUGUAGCUAGUUGUGAUGCAAUCAUGACUAGGUGUCUAGCUGUCCACGAGUGCUUUGUUAAGCGUGUUGACUGGACUAUUGAAUAUCCUAUAAUUGGUGAUGAACUGAAGAUUAAUGCGGCUUGUAGAAAGGUUCAACACAUGGUUGUUAAAGCUGCAUUAUUAGCAGACAAAUUCCCAGUUCUUCACGACAUUGGUAACCCUAAAGCUAUUAAGUGUGUACCUCAAGCUGAUGUAGAAUGGAAGUUCUAUGAUGCACAGCCUUGUAGUGACAAAGCUUAUAAAAUAGAAGAAUUAUUCUAUUCUUAUGCCACACAUUCUGACAAAUUCACAGAUGGUGUAUGCCUAUUUUGGAAUUGCAAUGUCGAUAGAUAUCCUGCUAAUUCCAUUGUUUGUAGAUUUGACACUAGAGUGCUAUCUAACCUUAACUUGCCUGGUUGUGAUGGUGGCAGUUUGUAUGUAAAUAAACAUGCAUUCCACACACCAGCUUUUGAUAAAAGUGCUUUUGUUAAUUUAAAACAAUUACCAUUUUUCUAUUACUCUGACAGUCCAUGUGAGUCUCAUGGAAAACAAGUAGUGUCAGAUAUAGAUUAUGUACCACUAAAGUCUGCUACGUGUAUAACACGUUGCAAUUUAGGUGGUGCUGUCUGUAGACAUCAUGCUAAUGAGUACAGAUUGUAUCUCGAUGCUUAUAACAUGAUGAUCUCAGCUGGCUUUAGCUUGUGGGUUUACAAACAAUUUGAUACUUAUAACCUCUGGAACACUUUUACAAGACUUCAGAGUUUAGAAAAUGUGGCUUUUAAUGUUGUAAAUAAGGGACACUUUGAUGGACAACAGGGUGAAGUACCAGUUUCUAUCAUUAAUAACACUGUUUACACAAAAGUUGAUGGUGUUGAUGUAGAAUUGUUUGAAAAUAAAACAACAUUACCUGUUAAUGUAGCAUUUGAGCUUUGGGCUAAGCGCAACAUUAAACCAGUACCAGAGGUGAAAAUACUCAAUAAUUUGGGUGUGGACAUUGCUGCUAAUACUGUGAUCUGGGACUACAAAAGAGAUGCUCCAGCACAUAUAUCUACUAUUGGUGUUUGUUCUAUGACUGACAUAGCCAAGAAACCAACUGAAACGAUUUGUGCACCACUCACUGUCUUUUUUGAUGGUAGAGUUGAUGGUCAAGUAGACUUAUUUAGAAAUGCCCGUAAUGGUGUUCUUAUUACAGAAGGUAGUGUUAAAGGUUUACAACCAUCUGUAGGUCCCAAACAAGCUAGUCUUAAUGGAGUCACAUUAAUUGGAGAAGCCGUAAAAACACAGUUCAAUUAUUAUAAGAAAGUUGAUGGUGUUGUCCAACAAUUACCUGAAACUUACUUUACUCAGAGUAGAAAUUUACAAGAAUUUAAACCCAGGAGUCAAAUGGAAAUUGAUUUCUUAGAAUUAGCUAUGGAUGAAUUCAUUGAACGGUAUAAAUUAGAAGGCUAUGCCUUCGAACAUAUCGUUUAUGGAGAUUUUAGUCAUAGUCAGUUAGGUGGUUUACAUCUACUGAUUGGACUAGCUAAACGUUUUAAGGAAUCACCUUUUGAAUUAGAAGAUUUUAUUCCUAUGGACAGUACAGUUAAAAACUAUUUCAUAACAGAUGCGCAAACAGGUUCAUCUAAGUGUGUGUGUUCUGUUAUUGAUUUAUUACUUGAUGAUUUUGUUGAAAUAAUAAAAUCCCAAGAUUUAUCUGUAGUUUCUAAGGUUGUCAAAGUGACUAUUGACUAUACAGAAAUUUCAUUUAUGCUUUGGUGUAAAGAUGGCCAUGUAGAAACAUUUUACCCAAAAUUACAAUCUAGUCAAGCGUGGCAACCGGGUGUUGCUAUGCCUAAUCUUUACAAAAUGCAAAGAAUGCUAUUAGAAAAGUGUGACCUUCAAAAUUAUGGUGAUAGUGCAACAUUACCUAAAGGCAUAAUGAUGAAUGUCGCAAAAUAUACUCAACUGUGUCAAUAUUUAAACACAUUAACAUUAGCUGUACCCUAUAAUAUGAGAGUUAUACAUUUUGGUGCUGGUUCUGAUAAAGGAGUUGCACCAGGUACAGCUGUUUUAAGACAGUGGUUGCCUACGGGUACGCUGCUUGUCGAUUCAGAUCUUAAUGACUUUGUCUCUGAUGCAGAUUCAACUUUGAUUGGUGAUUGUGCAACUGUACAUACAGCUAAUAAAUGGGAUCUCAUUAUUAGUGAUAUGUACGACCCUAAGACUAAAAAUGUUACAAAAGAAAAUGACUCUAAAGAGGGUUUUUUCACUUACAUUUGUGGGUUUAUACAACAAAAGCUAGCUCUUGGAGGUUCCGUGGCUAUAAAGAUAACAGAACAUUCUUGGAAUGCUGAUCUUUAUAAGCUCAUGGGACACUUCGCAUGGUGGACAGCCUUUGUUACUAAUGUGAAUGCGUCAUCAUCUGAAGCAUUUUUAAUUGGAUGUAAUUAUCUUGGCAAACCACGCGAACAAAUAGAUGGUUAUGUCAUGCAUGCAAAUUACAUAUUUUGGAGGAAUACAAAUCCAAUUCAGUUGUCUUCCUAUUCUUUAUUUGACAUGAGUAAAUUUCCCCUUAAAUUAAGGGGUACUGCUGUUAUGUCUUUAAAAGAAGGUCAAAUCAAUGAUAUGAUUUUAUCUCUUCUUAGUAAAGGUAGACUUAUAAUUAGAGAAAACAACAGAGUUGUUAUUUCUAGUGAUGUUCUUGUUAACAACUAAACGAACAAUGUUUGUUUUUCUUGUUUUAUUGCCACUAGUCUCUAGUCAGUGUGUUAAUCUUACAACCAGAACUCAAUUACCCCCUGCAUACACUAAUUCUUUCACACGUGGUGUUUAUUACCCUGACAAAGUUUUCAGAUCCUCAGUUUUACAUUCAACUCAGGACUUGUUCUUACCUUUCUUUUCCAAUGUUACUUGGUUCCAUGCUAUACAUGUCUCUGGGACCAAUGGUACUAAGAGGUUUGAUAACCCUGUCCUACCAUUUAAUGAUGGUGUUUAUUUUGCUUCCACUGAGAAGUCUAACAUAAUAAGAGGCUGGAUUUUUGGUACUACUUUAGAUUCGAAGACCCAGUCCCUACUUAUUGUUAAUAACGCUACUAAUGUUGUUAUUAAAGUCUGUGAAUUUCAAUUUUGUAAUGAUCCAUUUUUGGGUGUUUAUUACCACAAAAACAACAAAAGUUGGAUGGAAAGUGAGUUCAGAGUUUAUUCUAGUGCGAAUAAUUGCACUUUUGAAUAUGUCUCUCAGCCUUUUCUUAUGGACCUUGAAGGAAAACAGGGUAAUUUCAAAAAUCUUAGGGAAUUUGUGUUUAAGAAUAUUGAUGGUUAUUUUAAAAUAUAUUCUAAGCACACGCCUAUUAAUUUAGUGCGUGAUCUCCCUCAGGGUUUUUCGGCUUUAGAACCAUUGGUAGAUUUGCCAAUAGGUAUUAACAUCACUAGGUUUCAAACUUUACUUGCUUUACAUAGAAGUUAUUUGACUCCUGGUGAUUCUUCUUCAGGUUGGACAGCUGGUGCUGCAGCUUAUUAUGUGGGUUAUCUUCAACCUAGGACUUUUCUAUUAAAAUAUAAUGAAAAUGGAACCAUUACAGAUGCUGUAGACUGUGCACUUGACCCUCUCUCAGAAACAAAGUGUACGUUGAAAUCCUUCACUGUAGAAAAAGGAAUCUAUCAAACUUCUAACUUUAGAGUCCAACCAACAGAAUCUAUUGUUAGAUUUCCUAAUAUUACAAACUUGUGCCCUUUUGGUGAAGUUUUUAACGCCACCAGAUUUGCAUCUGUUUAUGCUUGGAACAGGAAGAGAAUCAGCAACUGUGUUGCUGAUUAUUCUGUCCUAUAUAAUUCCGCAUCAUUUUCCACUUUUAAGUGUUAUGGAGUGUCUCCUACUAAAUUAAAUGAUCUCUGCUUUACUAAUGUCUAUGCAGAUUCAUUUGUAAUUAGAGGUGAUGAAGUCAGACAAAUCGCUCCAGGGCAAACUGGAAAGAUUGCUGAUUAUAAUUAUAAAUUACCAGAUGAUUUUACAGGCUGCGUUAUAGCUUGGAAUUCUAACAAUCUUGAUUCUAAGGUUGGUGGUAAUUAUAAUUACCUGUAUAGAUUGUUUAGGAAGUCUAAUCUCAAACCUUUUGAGAGAGAUAUUUCAACUGAAAUCUAUCAGGCCGGUAGCACACCUUGUAAUGGUGUUGAAGGUUUUAAUUGUUACUUUCCUUUACAAUCAUAUGGUUUCCAACCCACUAAUGGUGUUGGUUACCAACCAUACAGAGUAGUAGUACUUUCUUUUGAACUUCUACAUGCACCAGCAACUGUUUGUGGACCUAAAAAGUCUACUAAUUUGGUUAAAAACAAAUGUGUCAAUUUCAACUUCAAUGGUUUAACAGGCACAGGUGUUCUUACUGAGUCUAACAAAAAGUUUCUGCCUUUCCAACAAUUUGGCAGAGACAUUGCUGACACUACUGAUGCUGUCCGUGAUCCACAGACACUUGAGAUUCUUGACAUUACACCAUGUUCUUUUGGUGGUGUCAGUGUUAUAACACCAGGAACAAAUACUUCUAACCAGGUUGCUGUUCUUUAUCAGGAUGUUAACUGCACAGAAGUCCCUGUUGCUAUUCAUGCAGAUCAACUUACUCCUACUUGGCGUGUUUAUUCUACAGGUUCUAAUGUUUUUCAAACACGUGCAGGCUGUUUAAUAGGGGCUGAACAUGUCAACAACUCAUAUGAGUGUGACAUACCCAUUGGUGCAGGUAUAUGCGCUAGUUAUCAGACUCAGACUAAUUCUCCUCGGCGGGCACGUAGUGUAGCUAGUCAAUCCAUCAUUGCCUACACUAUGUCACUUGGUGCAGAAAAUUCAGUUGCUUACUCUAAUAACUCUAUUGCCAUACCCACAAAUUUUACUAUUAGUGUUACCACAGAAAUUCUACCAGUGUCUAUGACCAAGACAUCAGUAGAUUGUACAAUGUACAUUUGUGGUGAUUCAACUGAAUGCAGCAAUCUUUUGUUGCAAUAUGGCAGUUUUUGUACACAAUUAAACCGUGCUUUAACUGGAAUAGCUGUUGAACAAGACAAAAACACCCAAGAAGUUUUUGCACAAGUCAAACAAAUUUACAAAACACCACCAAUUAAAGAUUUUGGUGGUUUUAAUUUUUCACAAAUAUUACCAGAUCCAUCAAAACCAAGCAAGAGGUCAUUUAUUGAAGAUCUACUUUUCAACAAAGUGACACUUGCAGAUGCUGGCUUCAUCAAACAAUAUGGUGAUUGCCUUGGUGAUAUUGCUGCUAGAGACCUCAUUUGUGCACAAAAGUUUAACGGCCUUACUGUUUUGCCACCUUUGCUCACAGAUGAAAUGAUUGCUCAAUACACUUCUGCACUGUUAGCGGGUACAAUCACUUCUGGUUGGACCUUUGGUGCAGGUGCUGCAUUACAAAUACCAUUUGCUAUGCAAAUGGCUUAUAGGUUUAAUGGUAUUGGAGUUACACAGAAUGUUCUCUAUGAGAACCAAAAAUUGAUUGCCAACCAAUUUAAUAGUGCUAUUGGCAAAAUUCAAGACUCACUUUCUUCCACAGCAAGUGCACUUGGAAAACUUCAAGAUGUGGUCAACCAAAAUGCACAAGCUUUAAACACGCUUGUUAAACAACUUAGCUCCAAUUUUGGUGCAAUUUCAAGUGUUUUAAAUGAUAUCCUUUCACGUCUUGACAAAGUUGAGGCUGAAGUGCAAAUUGAUAGGUUGAUCACAGGCAGACUUCAAAGUUUGCAGACAUAUGUGACUCAACAAUUAAUUAGAGCUGCAGAAAUCAGAGCUUCUGCUAAUCUUGCUGCUACUAAAAUGUCAGAGUGUGUACUUGGACAAUCAAAAAGAGUUGAUUUUUGUGGAAAGGGCUAUCAUCUUAUGUCCUUCCCUCAGUCAGCACCUCAUGGUGUAGUCUUCUUGCAUGUGACUUAUGUCCCUGCACAAGAAAAGAACUUCACAACUGCUCCUGCCAUUUGUCAUGAUGGAAAAGCACACUUUCCUCGUGAAGGUGUCUUUGUUUCAAAUGGCACACACUGGUUUGUAACACAAAGGAAUUUUUAUGAACCACAAAUCAUUACUACAGACAACACAUUUGUGUCUGGUAACUGUGAUGUUGUAAUAGGAAUUGUCAACAACACAGUUUAUGAUCCUUUGCAACCUGAAUUAGACUCAUUCAAGGAGGAGUUAGAUAAAUAUUUUAAGAAUCAUACAUCACCAGAUGUUGAUUUAGGUGACAUCUCUGGCAUUAAUGCUUCAGUUGUAAACAUUCAAAAAGAAAUUGACCGCCUCAAUGAGGUUGCCAAGAAUUUAAAUGAAUCUCUCAUCGAUCUCCAAGAACUUGGAAAGUAUGAGCAGUAUAUAAAAUGGCCAUGGUACAUUUGGCUAGGUUUUAUAGCUGGCUUGAUUGCCAUAGUAAUGGUGACAAUUAUGCUUUGCUGUAUGACCAGUUGCUGUAGUUGUCUCAAGGGCUGUUGUUCUUGUGGAUCCUGCUGCAAAUUUGAUGAAGACGACUCUGAGCCAGUGCUCAAAGGAGUCAAAUUACAUUACACAUAAACGAACUUAUGGAUUUGUUUAUGAGAAUCUUCACAAUUGGAACUGUAACUUUGAAGCAAGGUGAAAUCAAGGAUGCUACUCCUUCAGAUUUUGUUCGCGCUACUGCAACGAUACCGAUACAAGCCUCACUCCCUUUCGGAUGGCUUAUUGUUGGCGUUGCACUUCUUGCUGUUUUUCAGAGCGCUUCCAAAAUCAUAACCCUCAAAAAGAGAUGGCAACUAGCACUCUCCAAGGGUGUUCACUUUGUUUGCAACUUGCUGUUGUUGUUUGUAACAGUUUACUCACACCUUUUGCUCGUUGCUGCUGGCCUUGAAGCCCCUUUUCUCUAUCUUUAUGCUUUAGUCUACUUCUUGCAGAGUAUAAACUUUGUAAGAAUAAUAAUGAGGCUUUGGCUUUGCUGGAAAUGCCGUUCCAAAAACCCAUUACUUUAUGAUGCCAACUAUUUUCUUUGCUGGCAUACUAAUUGUUACGACUAUUGUAUACCUUACAAUAGUGUAACUUCUUCAAUUGUCAUUACUUCAGGUGAUGGCACAACAAGUCCUAUUUCUGAACAUGACUACCAGAUUGGUGGUUAUACUGAAAAAUGGGAAUCUGGAGUAAAAGACUGUGUUGUAUUACACAGUUACUUCACUUCAGACUAUUACCAGCUGUACUCAACUCAAUUGAGUACAGACACUGGUGUUGAACAUGUUACCUUCUUCAUCUACAAUAAAAUUGUUGAUGAGCCUGAAGAACAUGUCCAAAUUCACACAAUCGACGGUUCAUCCGGAGUUGUUAAUCCAGUAAUGGAACCAAUUUAUGAUGAACCGACGACGACUACUAGCGUGCCUUUGUAAGCACAAGCUGAUGAGUACGAACUUAUGUACUCAUUCGUUUCGGAAGAGACAGGUACGUUAAUAGUUAAUAGCGUACUUCUUUUUCUUGCUUUCGUGGUAUUCUUGCUAGUUACACUAGCCAUCCUUACUGCGCUUCGAUUGUGUGCGUACUGCUGCAAUAUUGUUAACGUGAGUCUUGUAAAACCUUCUUUUUACGUUUACUCUCGUGUUAAAAAUCUGAAUUCUUCUAGAGUUCCUGAUCUUCUGGUCUAAACGAACUAAAUAUUAUAUUAGUUUUUCUGUUUGGAACUUUAAUUUUAGCCAUGGCAGAUUCCAACGGUACUAUUACCGUUGAAGAGCUUAAAAAGCUCCUUGAACAAUGGAACCUAGUAAUAGGUUUCCUAUUCCUUACAUGGAUUUGUCUUCUACAAUUUGCCUAUGCCAACAGGAAUAGGUUUUUGUAUAUAAUUAAGUUAAUUUUCCUCUGGCUGUUAUGGCCAGUAACUUUAGCUUGUUUUGUGCUUGCUGCUGUUUACAGAAUAAAUUGGAUCACCGGUGGAAUUGCUAUCGCAAUGGCUUGUCUUGUAGGCUUGAUGUGGCUCAGCUACUUCAUUGCUUCUUUCAGACUGUUUGCGCGUACGCGUUCCAUGUGGUCAUUCAAUCCAGAAACUAACAUUCUUCUCAACGUGCCACUCCAUGGCACUAUUCUGACCAGACCGCUUCUAGAAAGUGAACUCGUAAUCGGAGCUGUGAUCCUUCGUGGACAUCUUCGUAUUGCUGGACACCAUCUAGGACGCUGUGACAUCAAGGACCUGCCUAAAGAAAUCACUGUUGCUACAUCACGAACGCUUUCUUAUUACAAAUUGGGAGCUUCGCAGCGUGUAGCAGGUGACUCAGGUUUUGCUGCAUACAGUCGCUACAGGAUUGGCAACUAUAAAUUAAACACAGACCAUUCCAGUAGCAGUGACAAUAUUGCUUUGCUUGUACAGUAAGUGACAACAGAUGUUUCAUCUCGUUGACUUUCAGGUUACUAUAGCAGAGAUAUUACUAAUUAUUAUGAGGACUUUUAAAGUUUCCAUUUGGAAUCUUGAUUACAUCAUAAACCUCAUAAUUAAAAAUUUAUCUAAGUCACUAACUGAGAAUAAAUAUUCUCAAUUAGAUGAAGAGCAACCAAUGGAGAUUGAUUAAACGAACAUGAAAAUUAUUCUUUUCUUGGCACUGAUAACACUCGCUACUUGUGAGCUUUAUCACUACCAAGAGUGUGUUAGAGGUACAACAGUACUUUUAAAAGAACCUUGCUCUUCUGGAACAUACGAGGGCAAUUCACCAUUUCAUCCUCUAGCUGAUAACAAAUUUGCACUGACUUGCUUUAGCACUCAAUUUGCUUUUGCUUGUCCUGACGGCGUAAAACACGUCUAUCAGUUACGUGCCAGAUCAGUUUCACCUAAACUGUUCAUCAGACAAGAGGAAGUUCAAGAACUUUACUCUCCAAUUUUUCUUAUUGUUGCGGCAAUAGUGUUUAUAACACUUUGCUUCACACUCAAAAGAAAGACAGAAUGAUUGAACUUUCAUUAAUUGACUUCUAUUUGUGCUUUUUAGCCUUUCUGCUAUUCCUUGUUUUAAUUAUGCUUAUUAUCUUUUGGUUCUCACUUGAACUGCAAGAUCAUAAUGAAACUUGUCACGCCUAAACGAACAUGAAAUUUCUUGUUUUCUUAGGAAUCAUCACAACUGUAGCUGCAUUUCACCAAGAAUGUAGUUUACAGUCAUGUACUCAACAUCAACCAUAUGUAGUUGAUGACCCGUGUCCUAUUCACUUCUAUUCUAAAUGGUAUAUUAGAGUAGGAGCUAGAAAAUCAGCACCUUUAAUUGAAUUGUGCGUGGAUGAGGCUGGUUCUAAAUCACCCAUUCAGUACAUCGAUAUCGGUAAUUAUACAGUUUCCUGUUUACCUUUUACAAUUAAUUGCCAGGAACCUAAAUUGGGUAGUCUUGUAGUGCGUUGUUCGUUCUAUGAAGACUUUUUAGAGUAUCAUGACGUUCGUGUUGUUUUAGAUUUCAUCUAAACGAACAAACUAAAAUGUCUGAUAAUGGACCCCAAAAUCAGCGAAAUGCACCCCGCAUUACGUUUGGUGGACCCUCAGAUUCAACUGGCAGUAACCAGAAUGGAGAACGCAGUGGGGCGCGAUCAAAACAACGUCGGCCCCAAGGUUUACCCAAUAAUACUGCGUCUUGGUUCACCGCUCUCACUCAACAUGGCAAGGAAGACCUUAAAUUCCCUCGAGGACAAGGCGUUCCAAUUAACACCAAUAGCAGUCCAGAUGACCAAAUUGGCUACUACCGAAGAGCUACCAGACGAAUUCGUGGUGGUGACGGUAAAAUGAAAGAUCUCAGUCCAAGAUGGUAUUUCUACUACCUAGGAACUGGGCCAGAAGCUGGACUUCCCUAUGGUGCUAACAAAGACGGCAUCAUAUGGGUUGCAACUGAGGGAGCCUUGAAUACACCAAAAGAUCACAUUGGCACCCGCAAUCCUGCUAACAAUGCUGCAAUCGUGCUACAACUUCCUCAAGGAACAACAUUGCCAAAAGGCUUCUACGCAGAAGGGAGCAGAGGCGGCAGUCAAGCCUCUUCUCGUUCCUCAUCACGUAGUCGCAACAGUUCAAGAAAUUCAACUCCAGGCAGCAGUAGGGGAACUUCUCCUGCUAGAAUGGCUGGCAAUGGCGGUGAUGCUGCUCUUGCUUUGCUGCUGCUUGACAGAUUGAACCAGCUUGAGAGCAAAAUGUCUGGUAAAGGCCAACAACAACAAGGCCAAACUGUCACUAAGAAAUCUGCUGCUGAGGCUUCUAAGAAGCCUCGGCAAAAACGUACUGCCACUAAAGCAUACAAUGUAACACAAGCUUUCGGCAGACGUGGUCCAGAACAAACCCAAGGAAAUUUUGGGGACCAGGAACUAAUCAGACAAGGAACUGAUUACAAACAUUGGCCGCAAAUUGCACAAUUUGCCCCCAGCGCUUCAGCGUUCUUCGGAAUGUCGCGCAUUGGCAUGGAAGUCACACCUUCGGGAACGUGGUUGACCUACACAGGUGCCAUCAAAUUGGAUGACAAAGAUCCAAAUUUCAAAGAUCAAGUCAUUUUGCUGAAUAAGCAUAUUGACGCAUACAAAACAUUCCCACCAACAGAGCCUAAAAAGGACAAAAAGAAGAAGGCUGAUGAAACUCAAGCCUUACCGCAGAGACAGAAGAAACAGCAAACUGUGACUCUUCUUCCUGCUGCAGAUUUGGAUGAUUUCUCCAAACAAUUGCAACAAUCCAUGAGCAGUGCUGACUCAACUCAGGCCUAAACUCAUGCAGACCACACAAGGCAGAUGGGCUAUAUAAACGUUUUCGCUUUUCCGUUUACGAUAUAUAGUCUACUCUUGUGCAGAAUGAAUUCUCGUAACUACAUAGCACAAGUAGAUGUAGUUAACUUUAAUCUCACAUAGCAAUCUUUAAUCAGUGUGUAACAUUAGGGAGGACUUGAAAGAGCCACCACAUUUUCACCGAGGCCACGCGGAGUACGAUCGAGUGUACAGUGAACAAUGCUAGGGAGAGCUGCCUAUAUGGAAGAGCCCUAAUGUGUAAAAUUAAUUUUAGUAGUGCUAUCCCCAUGUGAUUUUAAUAGCUUCUUAGGAGAAUGACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

[szimmetria-airtemmizs]

I was quite surprised the other day. I was doing some research on odd-distance graphs, and suddenly this drawing popped up. I knew that the points will lie on a circle but I didn’t expect them to be so regularly spaced. This is almost a regular 33-gon! Which is interesting since regular 33-gons cannot be constructed with ruler and compass, but this drawing can be constructed.

 This how it was created: I took a circle of radius 7/sqrt(3). Then I picked a point, it is denoted by (0,0,0) on the image. Then I started to add edges from that point of length 3, 5 or 7. So each segment that you can see have length 3, 5 or 7. And I did this recursively, from the new points I added more segments of length 3, 5, or 7. The triples on the points denote how it can be reached from (0,0,0). If (i,j,k) is written on a point then you can reach it by drawing i segments of length 7 and then j segments of length 5 and then k segments of length 3. You can see that some triples are missing, for example there is no (1,0,0) on the image. The reason for this that some points can be reach in multiple ways. For example (1,0,0) is the same as (0,1,1). (To see this just calculate the radius of the circumcircle of a triangle with side lengths 3, 5, 7. You will get 7/sqrt(3) ) Then I generated all (i,j,k) points where i,j,k<6 and this was the result.          

(If you are interested in these kind of odd-distance drawings you can read my paper for a nice theorem: https://arxiv.org/pdf/2008.10305.pdf)

[wal-phisics]

subleq.fth

only forth definitions hex

system +order

variable meta.1

variable target.1

variable assembler.1

variable target.only.1

meta.1 +order definitions

  2 constant =cell

4000 constant size

8000 constant =end

 40 constant =stksz

100 constant =buf

0008 constant =bksp

000A constant =lf

000D constant =cr

007F constant =del

create tflash size cells here over erase allot

variable tdp

variable tep

variable tlast

size =cell - tep !

0 tlast !

: :m meta.1 +order definitions : ;

: ;m postpone ; ; immediate

:m there tdp @ ;m

:m tc! tflash + c! ;m

:m tc@ tflash + c@ ;m

:m t! over $FF and over tc! swap 8 rshift swap 1+ tc! ;m

:m t@ dup tc@ swap 1+ tc@ 8 lshift or ;m

:m taligned dup 1 and + ;m

:m talign there 1 and tdp +! ;m

:m tc, there tc! 1 tdp +! ;m

:m t, there t! 2 tdp +! ;m

:m $literal

 talign [char] " word count dup tc, for aft count tc, then next drop talign ;m

:m tallot tdp +! ;m

:m parse-word bl word ?nul count ;m

:m thead

 talign

 there tlast @ t, tlast !

 parse-word talign dup tc, for aft count tc, then next drop talign ;m

:m #dec dup >r abs 0 <# $A hold #s r> sign #> type ;m  ( n -- print number )

:m mdump aligned begin ?dup while swap dup @ #dec cell+ swap cell - repeat drop ;m

:m save-target parse-word drop decimal tflash there mdump ;m

:m .end only forth definitions decimal ;m

:m setlast tlast ! ;m

:m atlast tlast @ ;m

:m tvar

 get-current >r meta.1 set-current create r> set-current there , t, does> @ ;m

:m label:

 get-current >r meta.1 set-current create r> set-current there ,    does> @ ;m

:m tdown =cell negate and ;m

:m tnfa =cell + ;m ( pwd -- nfa : move to name field address )

:m tcfa tnfa dup c@ $1F and + =cell + tdown ;m ( pwd -- cfa )

:m compile-only tlast @ tnfa t@ $20 or tlast @ tnfa t! ;m ( -- )

:m immediate    tlast @ tnfa t@ $40 or tlast @ tnfa t! ;m ( -- )

:m half dup 1 and abort" unaligned" 2/ ;m

:m double 2* ;m

:m (') bl word find ?found cfa ;m

:m t' (') >body @ ;m

:m to' target.only.1 +order (') >body @ target.only.1 -order ;m

:m tcksum taligned dup $C0DE - $FFFF and >r

  begin ?dup while swap dup t@ r> + $FFFF and >r =cell + swap =cell - repeat

  drop r> ;m

:m mkck dup there swap - tcksum ;m

system -order

\ ---------------------------------- Forth VM --------------------------------

:m Z 0 t, ;m \ Address 0 must contain 0

:m NADDR there 2/ 1+ t, ;m

:m HALT 0 t, 0 t, -1 t, ;m

:m JMP 2/ Z Z t, ;m

:m ADD swap 2/ t, Z NADDR Z 2/ t, NADDR Z Z NADDR ;m

:m SUB swap 2/ t, 2/ t, NADDR ;m

:m NOP Z Z NADDR ;m

:m ZERO dup 2/ t, 2/ t, NADDR ;m

:m PUT 2/ t, -1 t, NADDR ;m

:m MOV 2/ >r r@ dup t, t, NADDR 2/ t, Z  NADDR r> Z  t, NADDR Z Z NADDR ;m

:m iLOAD there 2/ 3 4 * 3 + + 2* MOV 0 swap MOV ;m

:m iJMP there 2/ E + 2* MOV NOP ;m

:m iSTORE ( addr w -- )

  swap >r there 2/ 24 + 2dup 2* MOV 2dup 1+ 2* MOV 7 + 2* MOV r> 0 MOV ;m

assembler.1 +order definitions

: begin talign there ;

: again JMP ;

: mark there 0 t, ;

: if ( NB. "if" does not work for 8000 )

  2/ dup t, Z there 2/ 4 + dup t, Z Z 6 + t, Z Z NADDR Z t, mark ;

: until 2/ dup t, Z there 2/ 4 + dup t, Z Z 6 + t, Z Z NADDR Z t, 2/ t, ;

: +if   Z 2/ t, mark ;

: -if 2/ t, Z there 2/ 4 + t, Z Z there 2/ 4 + t, Z Z mark ;

: then begin 2/ swap t! ;

: while if swap ;

: repeat JMP then ;

assembler.1 -order

meta.1 +order definitions

 0 t, 0 t,        \ both locations must be zero

label: entry       \ used to set entry point in next cell

 -1 t,            \ system entry point

 B tvar {options}  \ bit #1=echo off, #2 = checksum on, #4=info, #8=die on EOF

 0 tvar h         \ dictionary pointer

 0 tvar primitive \ any address lower than this one must be a primitive

 0 tvar check     \ used for system checksum

 8000 tvar hbit   \ must contain 8000

 -2   tvar ntwo   \ must contain -2

 -1 tvar neg1     \ must contain -1

 1 tvar one       \ must contain  1

 2 tvar two       \ must contain  1

$10 tvar bwidth   \ must contain 16

 0 tvar INVREG    \ temporary register used for inversion only

 0 tvar {cold}    \ entry point of virtual machine program, set later on

 0 tvar {key}     \ execution vector for key?

 0 tvar {emit}    \ execution vector for emit

 0 tvar {literal} \ execution vector for literal

 0 tvar {ok}      \ execution vector for .ok

 0 tvar {echo}    \ execution vector for echo

 0 tvar ip        \ instruction pointer

 0 tvar w         \ working pointer

 0 tvar x         \ working pointer

 0 tvar t         \ temporary register for Virtual Machine

 0 tvar bl1       \ bitwise extra register

 0 tvar bl2       \ bitwise extra register

 0 tvar bt        \ bitwise extra register

 0 tvar tos       \ top of stack

 0 tvar {state}   \ compiler state

 0 tvar {hld}     \ hold space pointer

 $A tvar {base}   \ input/output radix

 -1 tvar {dpl}    \ number of places after fraction

 0 tvar {in}      \ position in query string

 0 tvar {handler} \ throw/catch handler

 0 tvar {last}    \ last defined word

 0 tvar #tib      \ terminal input buffer

 0 tvar {context} $E tallot \ vocabulary context

 0 tvar {current} \ vocabulary which new definitions are added to

 0 tvar {forth-wordlist} \ forth word list (main vocabulary)

 0 tvar {root-voc} \ absolute minimum vocabulary

 0 tvar {system}  \ system functions vocabulary

 =end                       dup tvar {sp0} tvar {sp} \ grows downwards

 =end =stksz 4 * -          dup tvar {rp0} tvar {rp} \ grows upwards

 =end =stksz 4 * - =buf - constant TERMBUF \ pad buffer space

 TERMBUF =buf + constant =tbufend

:m INC 2/ neg1 2/ t, t, NADDR ;m ( b -- )

:m DEC 2/ one  2/ t, t, NADDR ;m ( b -- )

:m INV ( b -- : invert NB. b - a = b + ~a + 1 )

 INVREG ZERO dup INVREG SUB dup INVREG swap MOV DEC ;m

:m ++sp {sp} DEC ;m

:m --sp {sp} INC ;m

:m --rp {rp} DEC ;m

:m ++rp {rp} INC ;m

:m a-optim >r there =cell - r> 2/ t! ;m

assembler.1 +order

label: start

 start 2/ entry t!

 {sp0} {sp} MOV

 {rp0} {rp} MOV

 {cold} ip MOV

 ( fall-through )

label: vm ( Forth Inner Interpreter )

 ip w MOV

 ip INC

 t w iLOAD

 t w MOV

 primitive t SUB

 t -if w iJMP then ( jump straight to VM functions )

 ++rp

 ip {rp} iSTORE

 w ip MOV vm a-optim

 vm JMP

assembler.1 -order

:m header >in @ thead >in ! ;m

:m :ht ( "name" -- : forth routine, no header )

 get-current >r target.1 set-current create

 r> set-current $BABE talign there ,

 does> @ 2/ t, ;m

:m :t header :ht ;m ( "name" -- : forth routine )

:m :to ( "name" -- : forth, target only routine )

 header

 get-current >r target.only.1 set-current create r> set-current

 $BABE talign there ,

 does> @ 2/ t, ;m

:m :a ( "name" -- : assembly routine, no header )

 D00D

 target.1 +order definitions

 create talign there , assembler.1 +order does> @ 2/ t, ;m

:m (a); D00D <> if abort" unstructured" then assembler.1 -order ;m

:m ;a (a); vm a-optim vm JMP ;m

:m postpone target.only.1 +order t' target.only.1 -order 2/ t, ;m

\ NB. There are some bugs with the comparison operators "op<" and "op>" when

\ they deal with extreme values like "$8000 1 <", "$8002 1 <" words fine.

:a bye HALT ;a

:a 1- tos DEC ;a

:a 1+ tos INC ;a

:a invert tos INV ;a

:a [@] tos tos iLOAD ;a

:a [!] w {sp} iLOAD w tos iSTORE --sp tos {sp} iLOAD --sp ;a

:a opEmit tos PUT tos {sp} iLOAD --sp ;a

:a opPush ++sp tos {sp} iSTORE tos ip iLOAD ip INC ;a

:a opSwap tos w MOV tos {sp} iLOAD w {sp} iSTORE ;a

:a opDup ++sp tos {sp} iSTORE ;a

:a opOver w {sp} iLOAD ++sp tos {sp} iSTORE w tos MOV ;a

:a opDrop tos {sp} iLOAD --sp ;a

:a opToR ++rp tos {rp} iSTORE tos {sp} iLOAD --sp ;a

:a opFromR ++sp tos {sp} iSTORE tos {rp} iLOAD --rp ;a

:a opMul w {sp} iLOAD t ZERO

  begin w while tos t ADD w DEC repeat t tos MOV --sp ;a

:a opExit ip {rp} iLOAD --rp ;a

:a - w {sp} iLOAD tos w SUB w tos MOV --sp ;a

:a + w {sp} iLOAD w tos ADD --sp ;a

:a r@ ++sp tos {sp} iSTORE tos {rp} iLOAD ;a

:a rdrop --rp ;a

:a sp@ ++sp tos {sp} iSTORE {sp} tos MOV tos INC ;a

:a sp! tos {sp} MOV ;a

:a rp@ ++sp tos {sp} iSTORE {rp} tos MOV ;a

:a rp! tos {rp} MOV tos {sp} iLOAD --sp ;a

:a opNext w {rp} iLOAD

  w if w DEC w {rp} iSTORE t ip iLOAD t ip MOV vm JMP then ip INC --rp ;a

:a lsb

   tos tos ADD tos tos ADD tos tos ADD tos tos ADD

   tos tos ADD tos tos ADD tos tos ADD tos tos ADD

   tos tos ADD tos tos ADD tos tos ADD tos tos ADD

   tos tos ADD tos tos ADD

   tos w MOV 0 tos MOV w if neg1 tos MOV then ;a

:a opJump ip ip iLOAD ;a

:a opJumpZ

 tos w MOV 0 t MOV w if neg1 t MOV then w DEC w +if neg1 t MOV then

 tos {sp} iLOAD --sp t if ip INC vm JMP then w ip iLOAD w ip MOV ;a

:a op0> tos w MOV 0 tos MOV w +if neg1 tos MOV then ;a

:a op0=

  tos w MOV neg1 tos MOV w if 0 tos MOV then w DEC w +if 0 tos MOV then ;a

:a op0<

  tos w MOV 0 tos MOV w -if neg1 tos MOV then w INC w -if neg1 tos MOV then ;a

:a op< w {sp} iLOAD --sp tos w SUB 0 tos MOV w -if neg1 tos MOV then ;a

:a op> w {sp} iLOAD --sp tos w SUB 0 tos MOV w +if neg1 tos MOV then ;a

:a op2* tos tos ADD ;a

:a op2/

 bwidth w MOV

 x ZERO

 begin w DEC w while

   x x ADD

 tos bt MOV 0 bl1 MOV bt -if neg1 bl1 MOV then bt INC bt -if neg1 bl1 MOV then

   bl1 if x INC then

   tos tos ADD

 repeat

 x tos MOV ;a

:a rshift

 bwidth w MOV

 tos w SUB

 tos {sp} iLOAD --sp

 x ZERO

 begin w while

   x x ADD

 tos bt MOV 0 bl1 MOV bt -if neg1 bl1 MOV then bt INC bt -if neg1 bl1 MOV then

   bl1 if x INC then

   tos tos ADD

   w DEC

 repeat

 x tos MOV ;a

:a opOr

 bwidth w MOV

 x ZERO

 t {sp} iLOAD

 --sp

 begin w while

  x x ADD

tos bt MOV 0 bl1 MOV bt -if neg1 bl1 MOV then bt INC bt -if neg1 bl1 MOV then

t   bt MOV 0 bl2 MOV bt -if neg1 bl2 MOV then bt INC bt -if neg1 bl2 MOV then

  bl1 bl2 ADD bl2 if x INC then

  t t ADD

  tos tos ADD

  w DEC

 repeat

 x tos MOV ;a

:a opXor

 bwidth w MOV

 x ZERO

 t {sp} iLOAD

 --sp

 begin w while

  x x ADD

tos bt MOV 0 bl1 MOV bt -if neg1 bl1 MOV then bt INC bt -if neg1 bl1 MOV then

t   bt MOV 0 bl2 MOV bt -if neg1 bl2 MOV then bt INC bt -if neg1 bl2 MOV then

  bl1 bl2 ADD bl2 INC one bl1 MOV bl2 if 0 bl1 MOV then bl1 x ADD

  t t ADD

  tos tos ADD

  w DEC

 repeat

 x tos MOV ;a

:a opAnd

 bwidth w MOV

 x ZERO

 t {sp} iLOAD

 --sp

 begin w while

  x x ADD

tos bt MOV 0 bl1 MOV bt -if neg1 bl1 MOV then bt INC bt -if neg1 bl1 MOV then

t   bt MOV 0 bl2 MOV bt -if neg1 bl2 MOV then bt INC bt -if neg1 bl2 MOV then

  bl1 bl2 ADD two bl2 ADD one bl1 MOV bl2 if 0 bl1 MOV then bl1 x ADD

  t t ADD

  tos tos ADD

  w DEC

 repeat

 x tos MOV ;a

there 2/ primitive t!

:m ;t $BABE <>

    if abort" unstructured" then talign opExit target.only.1 -order ;m

:m :s tlast @ {system} t@ tlast ! $F00D :t drop 0 ;m

:m :so  tlast @ {system} t@ tlast ! $F00D :to drop 0 ;m

:m ;s drop $BABE ;t $F00D <> if abort" unstructured" then

  tlast @ {system} t! tlast ! ;m

:m :r tlast @ {root-voc} t@ tlast ! $F00D :t drop 0 ;m

:m ;r drop $BABE ;t $F00D <> if abort" unstructured" then

  tlast @ {root-voc} t! tlast ! ;m

:m lit         opPush t, ;m

:m [char] char opPush t, ;m

:m char   char opPush t, ;m

:m begin talign there ;m

:m until talign opJumpZ 2/ t, ;m

:m again talign opJump  2/ t, ;m

:m if opJumpZ there 0 t, ;m

:m mark opJump there 0 t, ;m

:m then there 2/ swap t! ;m

:m else mark swap then ;m

:m while if ;m

:m repeat swap again then ;m

:m aft drop mark begin swap ;m

:m next talign opNext 2/ t, ;m

:m for opToR begin ;m

:m =push   [ t' opPush  half ] literal ;m

:m =jump   [ t' opJump  half ] literal ;m

:m =jumpz  [ t' opJumpZ half ] literal ;m

:m =unnest [ t' opExit  half ] literal ;m

:m =>r     [ t' opToR   half ] literal ;m

:m =next   [ t' opNext  half ] literal ;m

:m dup opDup ;m

:m drop opDrop ;m

:m over opOver ;m

:m swap opSwap ;m

:m >r opToR ;m

:m r> opFromR ;m

:m 0> op0> ;m

:m 0= op0= ;m

:m 0< op0< ;m

:m < op< ;m

:m > op> ;m

:m or opOr ;m

:m xor opXor ;m

:m and opAnd ;m

:m exit opExit ;m

:m 2/ op2/ ;m

:ht #0 0 lit ;t

:ht #1 1 lit ;t

:ht #-1 FFFF lit ;t

:to 1+ 1+ ;t

:to 1- 1- ;t

:to + + ;t

:to - - ;t

:to invert invert ;t

:to bye bye ;t

:to dup dup ;t

:to drop opDrop ;t

:to over opOver ;t

:to swap opSwap ;t

:to rshift rshift  ;t

:so [@] [@] ;s

:so [!] [!] ;s

:so lsb lsb ;s

:to sp@ sp@ ;t

:to sp! sp! ;t

:to 0> op0> ;t

:to 0= op0= ;t

:to 0< op0< ;t

:to < op< ;t

:to > op> ;t

:to 2/ op2/ ;t

:to or opOr ;t

:to xor opXor ;t

:to and opAnd ;t

:to * opMul ;t

:t nop ;t

:t <ok> {ok} lit ;t

:s <emit> {emit} lit ;s

:s <key>  {key} lit ;s

:s <literal> {literal} lit ;s

:s <cold> {cold} lit ;s

:s <echo> {echo} lit ;s

:t current {current} lit ;t

:t root-voc {root-voc} lit ;t

:t #vocs 8 lit ;t

:t context {context} lit ;t

:t here h half lit [@] ;t

:t base {base} lit ;t

:t dpl {dpl} lit ;t

:t hld {hld} lit ;t

:t bl 20 lit ;t

:t >in {in} lit ;t

:t hex  $10 lit {base} half lit [!] ;t

:t decimal $A lit {base} half lit [!] ;t

:t source TERMBUF lit #tib half lit [@] ;t

:s many #0 {in} half lit [!] ;s

:t state {state} lit ;t

:t ] #-1 {state} half lit [!] ;t

:t [ #0  {state} half lit [!] ;t immediate

:t nip swap drop ;t

:t tuck swap over ;t

:t ?dup dup if dup then ;t

:t rot >r swap r> swap ;t

:t -rot rot rot ;t

:t 2drop drop drop ;t

:t 2dup  over over ;t

:t 0<= 0> 0= ;t

:t 0<> 0= 0= ;t

:t = - 0= ;t

:t <> = 0= ;t

:t >= < 0= ;t

:t <= > 0= ;t

:t 0>= 0< 0= ;t

:t negate 1- invert ;t

:t s>d dup 0< ;t

:t abs s>d if negate then ;t

:t 2* op2* ;t

:t cell 2 lit ;t

:t cell+ cell + ;t

:t cells op2* ;t

:t u< 2dup 0< 0= swap 0< 0= <> >r < r> <>  ;t

:t u> swap u< ;t

:t u>= u< 0= ;t

:t u<= u> 0= ;t

:t execute 2/ >r ;t

:t key? #-1 [@] negate s>d if

     {options} half lit [@] 8 lit and if bye then drop #0 exit then #-1 ;t

:t key begin {key} half lit [@] execute until ;t

:t emit {emit} half lit [@] execute ;t

:t cr =cr lit emit =lf lit emit ;t

:t @ 2/ [@] ;t

:t ! 2/ [!] ;t

:t get-current current @ ;t

:t set-current current ! ;t

:s last get-current @ ;s

:t pick sp@ + [@] ;t

:t +! 2/ tuck [@] + swap [!] ;t

:t lshift begin ?dup while 1- swap 2* swap repeat ;t

:t c@ dup @ swap lsb if 8 lit rshift else $FF lit and then ;t

:t c!  swap $FF lit and dup 8 lit lshift or swap

  tuck dup @ swap lsb 0= $FF lit xor

  >r over xor r> and xor swap ! ;t

:t max 2dup < if nip else drop then ;t

:t min 2dup > if nip else drop then ;t

:t count dup 1+ swap c@ ;t

:s logical 0<> if #1 else #0 then ;s

:t aligned dup lsb logical + ;t

:t align here aligned h half lit [!] ;t

:t +string #1 over min rot over + rot rot - ;t

:t type begin dup while swap count emit swap 1- repeat 2drop ;t

:t cmove for aft >r dup c@ r@ c! 1+ r> 1+ then next 2drop ;t ( b1 b2 u -- )

:t fill  swap for swap aft 2dup c! 1+ then next 2drop ;t     ( b u c -- )

:t erase #0 fill ;t ( NB. blank is bl fill )

:s do$ r> r> 2* dup count + aligned 2/ >r swap >r ;s ( -- a : )

:s ($) do$ ;s            ( -- a : do string NB. )

:s .$ do$ count type ;s  ( -- : print string, next cells contain string )

:m ." .$ $literal ;m

:m $" ($) $literal ;m

:t space bl emit ;t

:t catch        ( xt -- exception# | 0 \ return addr on stack )

  sp@ >r                        ( xt )   \ save data stack pointer

  {handler} half lit [@] >r     ( xt )   \ and previous handler

  rp@ {handler} half lit [!]    ( xt )   \ set current handler

  execute                       ( )      \ execute returns if no throw

  r> {handler} half lit [!]     ( )      \ restore previous handler

  rdrop                         ( )      \ discard saved stack ptr

  #0 ;t                         ( 0 )    \ normal completion

:t throw ( ??? exception# -- ??? exception# )

   ?dup if                      ( exc# )     \ 0 throw is no-op

     {handler} half lit [@] rp! ( exc# )     \ restore prev return stack

     r> {handler} half lit [!]  ( exc# )     \ restore prev handler

     r> swap >r                 ( saved-sp ) \ exc# on return stack

     sp! drop r>                ( exc# )     \ restore stack

   then ;t

:t abort #-1 throw ;t

:s (abort) do$ swap if count type abort then drop ;s

:t um+

 2dup + >r r@ #0 >= >r 2dup and 0< r> or >r or 0< r> and invert 1+ r> swap ;t

:t dnegate invert >r invert #1 um+ r> + ;t ( d -- d )

:t d+ >r swap >r um+ r> + r> + ;t         ( d d -- d )

:t um* ( u u -- ud : double cell width multiply )

 #0 swap ( u1 0 u2 ) $F lit

 for

   dup um+ >r >r dup um+ r> + r>

   if >r over um+ r> + then

 next rot drop ;t

:t um/mod ( ud u -- ur uq : unsigned double cell width divide/modulo )

 ?dup 0= if -A lit throw then

 2dup u<

 if negate $F lit

   for >r dup um+ >r >r dup um+ r> + dup

     r> r@ swap >r um+ r> ( or -> ) 0<> swap 0<> +

     if >r drop 1+ r> else drop then r>

   next

   drop swap exit

 then 2drop drop #-1 dup ;t

:t m/mod ( d n -- r q : floored division )

 s>d dup >r

 if

   negate >r dnegate r>

 then

 >r s>d if r@ + then r> um/mod r>

 if swap negate swap exit then ;t

:t /mod  over 0< swap m/mod ;t

:t mod  /mod drop ;t

:t /    /mod nip ;t

:s depth {sp0} half lit [@] sp@ - 1- ;s

:s (emit) opEmit ;s

:t echo {echo} half lit [@] execute ;t

:s tap dup echo over c! 1+ ;s ( bot eot cur c -- bot eot cur )

:s ktap ( bot eot cur c -- bot eot cur )

 dup dup =cr lit <> >r  =lf lit <> r> and if ( Not End of Line? )

   dup =bksp lit <> >r =del lit <> r> and if ( Not Delete Char? )

     bl tap

     exit

   then

   >r over r@ < dup if

     =bksp lit dup echo bl echo echo

   then

   r> +

   exit

 then drop nip dup ;s

:t accept ( b u -- b u : read in a line of user input )

 over + over begin

   2dup <>

 while

   key dup bl - $5F lit u< if tap else ktap then

 repeat drop over - ;t

:t query TERMBUF lit =buf lit accept #tib lit ! drop #0 >in ! ;t

:s ?depth depth > if -4 lit throw then ;s ( u -- : check stack depth )

:t -trailing for aft bl over r@ + c@ < if r> 1+ exit then then next #0 ;t

:s look ( b u c xt -- b u : skip until *xt* test succeeds )

 swap >r rot rot

 begin

   dup

 while

   over c@ r@ - r@ bl = 4 lit pick execute

   if rdrop rot drop exit then

   +string

 repeat rdrop rot drop ;s

:s unmatch if 0> exit then 0<> ;s ( c1 c2 -- t )

:s match unmatch invert ;s        ( c1 c2 -- t )

:t parse ( c -- b u ; <string> )

   >r source drop >in @ + #tib lit @ >in @ - r@

   >r over r> swap >r >r

   r@ t' unmatch lit look 2dup

   r> t' match   lit look swap r> - >r - r> 1+  ( b u c -- b u delta )

   >in +!

   r> bl = if -trailing then #0 max ;t

:t spaces begin dup 0> while space 1- repeat drop ;t ( +n -- )

:t hold #-1 hld +! hld @ c! ;t ( c -- : save a character in hold space )

:t #> 2drop hld @ =tbufend lit over - ;t  ( u -- b u )

:s extract dup >r um/mod r> swap >r um/mod r> rot ;s ( ud ud -- ud u )

:s digit 9 lit over < 7 lit and + [char] 0 + ;s ( u -- c )

:t #  2 lit ?depth #0 base @ extract digit hold ;t ( d -- d )

:t #s begin # 2dup ( d0= -> ) or 0= until ;t       ( d -- 0 )

:t <# =tbufend lit hld ! ;t                        ( -- )

:t sign 0< if [char] - hold then ;t                ( n -- )

:t u.r >r #0 <# #s #>  r> over - spaces type ;t

:t u.     #0 <# #s #> space type ;t

:t . dup >r abs #0 <# #s r> sign #> space type ;t  ( n -- print number )

:t >number ( ud b u -- ud b u : convert string to number )

 begin

   2dup >r >r drop c@ base @        ( get next character )

   ( digit? -> ) >r [char] 0 - 9 lit over <

   if 7 lit - dup $A lit < or then dup r> u< ( c base -- u f )

   0= if                            ( d char )

     drop                           ( d char -- d )

     r> r>                          ( restore string )

     exit                           ( ..exit )

   then                             ( d char )

   swap base @ um* drop rot base @ um* d+ ( accumulate digit )

   r> r>                            ( restore string )

   +string dup 0=                   ( advance string and test for end )

 until ;t

:t number? ( a u -- d -1 | a u 0 : string to a number [easier to use] )

 #-1 dpl !

 base @ >r

 over c@ [char] - = dup >r if     +string then

 over c@ [char] $ =        if hex +string then

 >r >r #0 dup r> r>

 begin

   >number dup

 while over c@ [char] . <>

   if rot drop rot r> 2drop #0 r> base ! exit then

   1- dpl ! 1+ dpl @

 repeat

 2drop r> if dnegate then r> base ! #-1 ;t

:t compare ( a1 u1 a2 u2 -- n : string equality )

 rot

 over - ?dup if >r 2drop r> nip exit then

 for ( a1 a2 )

   aft

     count rot count rot - ?dup

     if rdrop nip nip exit then

   then

 next 2drop #0 ;t

:t .s depth for aft r@ pick . then next ;t

:t nfa cell+ ;t ( pwd -- nfa : move word pointer to name field )

:t cfa nfa dup c@ $1F lit and + cell+ cell negate and ;t ( pwd -- cfa )

:t allot aligned h lit +! ;t

:t , align here ! cell allot ;t

:s (search-wordlist) ( a wid -- PWD PWD 1|PWD PWD -1|0 a 0: find word in WID )

 swap >r dup

 begin

   dup

 while

   dup nfa count $9F lit ( $1F:word-length + $80:hidden )

   and r@ count compare 0=

   if ( found! )

     rdrop

     dup ( immediate? -> ) nfa $40 lit swap @ and 0<>

     #1 or negate exit

   then

   nip dup @

 repeat

 rdrop 2drop #0 ;s

:s (find) ( a -- pwd pwd 1 | pwd pwd -1 | 0 a 0 : find a word dictionary )

 >r

 context

 begin

   dup @

 while

   dup @ @ r@ swap (search-wordlist) ?dup

   if

     >r rot drop r> rdrop exit

   then

   cell+

 repeat drop #0 r> #0 ;s

:t search-wordlist (search-wordlist) rot drop ;t ( a wid -- PWD 1|PWD -1|a 0 )

:t find ( a -- pwd 1 | pwd -1 | a 0 : find a word in the dictionary )

 (find) rot drop ;t

:s (literal) state @ if =push lit , , then ;s

:t literal <literal> @ execute ;t immediate ( u -- )

:t compile, 2/ align , ;t  ( xt -- )

:s ?found

  if exit then space count type [char] ? emit cr -D lit throw ;s ( u f -- )

:t interpret ( b -- )

 find ?dup if

   state @

   if

     0> if cfa execute exit then \ <- immediate word are executed

     cfa compile, exit           \ <- compiling word are...compiled.

   then

   drop

   dup nfa c@ 20 lit and if -E lit throw then ( <- ?compile )

   cfa execute exit  \ <- if its not, execute it, then exit *interpreter*

 then

 \ not a word

 dup >r count number? if rdrop \ it is a number!

   dpl @ 0< if \ <- dpl will be -1 if it is a single cell number

      drop     \ drop high cell from 'number?' for single cell output

   else        \ <- dpl is not -1, it is a double cell number

      state @ if swap then

      postpone literal \ literal is executed twice if it's a double

   then

   postpone literal exit

 then

 r> #0 ?found ;t \ Could vector ?found here, to handle arbitrary words

:s .id nfa count $1F lit and type space ;s ( pwd -- : print out a word )

:t get-order ( -- widn ... wid1 n : get the current search order )

 context

 ( find empty cell -> ) #0 >r begin dup @ r@ xor while cell+ repeat rdrop

 dup cell - swap

 context - 2/ dup >r 1- s>d if -50 lit throw then

 for aft dup @ swap cell - then next @ r> ;t

:r set-order ( widn ... wid1 n -- : set the current search order )

 dup #-1 = if drop root-voc #1 set-order exit then ( NB. Recursion! )

 dup #vocs > if -49 lit throw then

 context swap for aft tuck ! cell+ then next #0 swap ! ;r

:r forth-wordlist {forth-wordlist} lit ;r ( -- wid )

:r system {system} lit ;r ( -- wid )

:r forth root-voc forth-wordlist 2 lit set-order ;r ( -- )

:r only #-1 set-order ;r                            ( -- )

:r words

 get-order begin ?dup while swap dup cr u. ." : " @

   begin ?dup while dup nfa c@ $80 lit and 0= if dup .id then @ repeat cr

 1- repeat ;r

:t definitions context @ set-current ;t

:t (order) ( w wid*n n -- wid*n w n )

 dup if

   1- swap >r (order) over r@ xor

   if

     1+ r> -rot exit

   then rdrop

 then ;t

:t -order get-order (order) nip set-order ;t

:t +order dup >r -order get-order r> swap 1+ set-order ;t

:t word parse here dup >r 2dup ! 1+ swap cmove r> ;t ( c -- b )

:s ?unique ( a -- a : print a message if a word definition is not unique )

dup get-current (search-wordlist) 0= if exit then space

2drop {last} lit @ .id ." redefined" cr ;s

:s ?nul dup c@ if exit then -10 lit throw ;s

:to char bl word ?nul count drop c@ ;t

:to [char] postpone char =push lit , , ;t immediate

:to ; $BABE lit <> if -16 lit throw then =unnest lit , postpone [

?dup if get-current ! exit then ;t immediate compile-only ( -- wid )

:to : align here dup {last} lit ! ( "name", -- colon-sys )

 last , bl word ?nul ?unique count + h lit ! align $BABE lit postpone ] ;t

:to :noname here $BABE lit ] ;t

:to begin align here ;t immediate compile-only

:to until =jumpz lit , 2/ , ;t immediate compile-only

:to again =jump  lit , 2/ , ;t immediate compile-only

:to if =jumpz lit , here #0 , ;t immediate compile-only

:to then here 2/ swap ! ;t immediate compile-only

:to while postpone if ;t immediate compile-only

:to repeat swap postpone again postpone then ;t immediate compile-only

:to else =jump lit , here #0 , swap postpone then ;t immediate compile-only

:to for =>r lit , here ;t immediate compile-only

:to aft drop =jump lit , here #0 , align here swap ;t immediate compile-only

:to next =next lit , 2/ , ;t immediate compile-only

:to ' bl word find ?found cfa literal ;t immediate

:t compile r> dup [@] , 1+ >r ;t compile-only

:t recurse {last} lit @ cfa compile, ;t immediate compile-only

:s toggle tuck @ xor swap ! ;s

:s hide bl word find ?found nfa $80 lit swap toggle ;s

:s (var) r> 2* ;s compile-only

:s (const) r> [@] ;s compile-only

:s (marker) r> 2* dup @ h lit ! cell+ @ get-current ! ;s compile-only

:t create postpone : drop postpone [ compile (var) get-current ! ;t

:to variable create #0 , ;t

:to constant create cell negate allot compile (const) , ;t

:to marker last here create cell negate allot compile (marker) , , ;t

:t >body cell+ ;t ( a -- a )

:s (does) r> r> 2* swap >r ;s compile-only

:s (comp) r> {last} lit @ cfa ! ;s compile-only

:t does> compile (comp) compile (does) ;t immediate compile-only

:to rp! compile rp! ;t immediate compile-only

:to rp@ compile rp@ ;t immediate compile-only

:to >r compile opToR ;t immediate compile-only

:to r> compile opFromR ;t immediate compile-only

:to r@ compile r@ ;t immediate compile-only

:to rdrop compile rdrop ;t immediate compile-only

:to exit compile opExit ;t immediate compile-only

:to ." compile .$

 [char] " word count + h half lit [!] align ;t immediate compile-only

:to $" compile ($)

 [char] " word count + h half lit [!] align ;t immediate compile-only

:to abort" compile (abort)

 [char] " word count + h half lit [!] align ;t immediate compile-only

:to ( [char] ) parse 2drop ;t immediate

:to .( [char] ) parse type ;t immediate

:to postpone bl word find ?found cfa compile, ;t immediate

:to ) ;t immediate

:to \ source drop @ {in} half lit [!] ;t immediate

:to immediate last nfa @ $40 lit or last nfa ! ;t

:to see bl word find ?found

   cr begin dup @ =unnest lit <> while dup @ u. cell+ repeat @ u. ;t

:to dump aligned begin ?dup while swap dup @ . cell+ swap cell - repeat drop ;t

:s cksum aligned dup $C0DE lit - >r

    begin ?dup while swap dup @ r> + >r cell+ swap cell - repeat drop r> ;s

:s ok state @ 0= if ."  ok" cr then ;s

:t eval

  begin bl word dup c@ while

    interpret #1 ?depth

  repeat drop {ok} half lit [@] execute ;t ( "word" -- )

:s info cr

 ." Project: eForth v1.5 " ( here . ) cr

 ." Author:  Richard James Howe" cr

 ." Email:   [email protected]" cr

 ." Repo:    https://github.com/howerj/subleq" cr

 ." License: The Unlicense / Public Domain" cr ;s

:s ini only forth definitions decimal postpone [

 #0 {in} half lit [!] #-1 {dpl} half lit [!] ;s ( -- )

:s opts

 {options} half lit [@] lsb if to' drop lit {echo} half lit [!] then

 {options} half lit [@] 4 lit and if info then

 {options} half lit [@] 2 lit and if

   primitive half lit [@] 2* dup here swap - cksum

   check half lit [@] <> if ." cksum fail" bye then

   {options} half lit [@] 2 lit xor {options} half lit [!]

 then ;s

:t quit ( -- : interpreter loop, and more, does more than most QUITs )

 ini

 opts

 begin

  query t' eval lit catch

  ?dup if dup space . [char] ? emit cr #-1 = if bye then ini then

 again ;t

:t cold {cold} half lit [@] execute ;t

\ ---------------------------------- Image Generation ------------------------

t' quit half {cold} t!

t' key? {key} t!

t' (emit) {echo} t!

t' (emit) {emit} t!

t' ok {ok} t!

t' (literal) {literal} t!

atlast {forth-wordlist} t!

{forth-wordlist} {current} t!

there h t!

primitive t@ double mkck check t!

atlast {last} t!

save-target subleq.dec

there .end

bye

[wal-phisics]

eForth for SUBLEQ in one file

#include <stdio.h> int main(void){short p=0,m[65536] = { /* eForth for 16-bit SUBLEQ */ 0,0,40,7,3168,-32768,-2,-1,1,2,16,0,5646,7642,8728,10118,11034,8728,0,0,0, 0,0,0,0,0,11492,0,0,10,-1,0,0,11474,0,3358,-32768,-32768,32512,32512,37,37, 43,36,0,46,0,37,49,0,0,52,39,39,55,38,0,58,0,39,61,0,0,64,18,18,67,12,0,70, 0,18,73,0,0,76,19,19,79,18,0,82,0,19,85,0,0,88,7,18,91,106,106,94,19,0,97,0, 106,100,0,0,103,21,21,106,0,0,109,0,21,112,0,0,115,19,19,118,21,0,121,0,19, 124,0,0,127,35,21,130,21,0,136,0,0,139,0,0,154,153,153,142,19,0,145,0,153, 148,0,0,151,0,0,154,7,39,157,193,193,160,39,0,163,0,193,166,0,0,169,194,194, 172,39,0,175,0,194,178,0,0,181,200,200,184,39,0,187,0,200,190,0,0,193,0,0, 196,18,0,199,0,0,202,0,0,205,18,18,208,19,0,211,0,18,214,0,0,217,0,0,76,0, 0,-1,0,0,76,8,25,229,0,0,76,7,25,235,0,0,76,11,11,241,25,11,244,25,25,247, 11,0,250,0,25,253,0,0,256,8,25,259,0,0,76,277,277,265,25,0,268,0,277,271,0, 0,274,25,25,277,0,0,280,0,25,283,0,0,286,0,0,76,304,304,292,37,0,295,0,304, 298,0,0,301,19,19,304,0,0,307,0,19,310,0,0,313,349,349,316,25,0,319,0,349, 322,0,0,325,350,350,328,25,0,331,0,350,334,0,0,337,356,356,340,25,0,343,0, 356,346,0,0,349,0,0,352,19,0,355,0,0,358,0,0,361,7,37,364,379,379,367,37,0, 370,0,379,373,0,0,376,25,25,379,0,0,382,0,25,385,0,0,388,7,37,391,0,0,76,25, -1,397,412,412,400,37,0,403,0,412,406,0,0,409,25,25,412,0,0,415,0,25,418,0, 0,421,7,37,424,0,0,76,8,37,430,466,466,433,37,0,436,0,466,439,0,0,442,467, 467,445,37,0,448,0,467,451,0,0,454,473,473,457,37,0,460,0,473,463,0,0,466, 0,0,469,25,0,472,0,0,475,0,0,478,-1,25,481,0,0,76,8,37,487,523,523,490,37, 0,493,0,523,496,0,0,499,524,524,502,37,0,505,0,524,508,0,0,511,530,530,514, 37,0,517,0,530,520,0,0,523,0,0,526,25,0,529,0,0,532,0,0,535,550,550,538,18, 0,541,0,550,544,0,0,547,25,25,550,0,0,553,0,25,556,0,0,559,7,18,562,0,0,76, 19,19,568,25,0,571,0,19,574,0,0,577,592,592,580,37,0,583,0,592,586,0,0,589, 25,25,592,0,0,595,0,25,598,0,0,601,637,637,604,37,0,607,0,637,610,0,0,613, 638,638,616,37,0,619,0,638,622,0,0,625,644,644,628,37,0,631,0,644,634,0,0, 637,0,0,640,19,0,643,0,0,646,0,0,649,0,0,76,8,37,655,691,691,658,37,0,661,0, 691,664,0,0,667,692,692,670,37,0,673,0,692,676,0,0,679,698,698,682,37,0,685, 0,698,688,0,0,691,0,0,694,25,0,697,0,0,700,0,0,703,0,0,76,721,721,709,37,0, 712,0,721,715,0,0,718,19,19,721,0,0,724,0,19,727,0,0,730,8,37,733,769,769, 736,37,0,739,0,769,742,0,0,745,770,770,748,37,0,751,0,770,754,0,0,757,776, 776,760,37,0,763,0,776,766,0,0,769,0,0,772,25,0,775,0,0,778,0,0,781,25,25, 784,19,0,787,0,25,790,0,0,793,0,0,76,811,811,799,37,0,802,0,811,805,0,0,808, 25,25,811,0,0,814,0,25,817,0,0,820,7,37,823,0,0,76,7,39,829,865,865,832,39, 0,835,0,865,838,0,0,841,866,866,844,39,0,847,0,866,850,0,0,853,872,872,856, 39,0,859,0,872,862,0,0,865,0,0,868,25,0,871,0,0,874,0,0,877,892,892,880,37, 0,883,0,892,886,0,0,889,25,25,892,0,0,895,0,25,898,0,0,901,7,37,904,0,0,76, 8,37,910,946,946,913,37,0,916,0,946,919,0,0,922,947,947,925,37,0,928,0,947, 931,0,0,934,953,953,937,37,0,940,0,953,943,0,0,946,0,0,949,25,0,952,0,0,955, 0,0,958,973,973,961,39,0,964,0,973,967,0,0,970,25,25,973,0,0,976,0,25,979, 0,0,982,8,39,985,0,0,76,1003,1003,991,37,0,994,0,1003,997,0,0,1000,19,19, 1003,0,0,1006,0,19,1009,0,0,1012,21,21,1015,19,0,1021,0,0,1027,0,0,1024,0,19, 1042,25,0,1030,0,21,1033,0,0,1036,8,19,1039,0,0,1015,25,25,1045,21,0,1048,0, 25,1051,0,0,1054,7,37,1057,0,0,76,1075,1075,1063,39,0,1066,0,1075,1069,0,0, 1072,18,18,1075,0,0,1078,0,18,1081,0,0,1084,8,39,1087,0,0,76,1105,1105,1093, 37,0,1096,0,1105,1099,0,0,1102,19,19,1105,0,0,1108,0,19,1111,0,0,1114,25, 19,1117,25,25,1120,19,0,1123,0,25,1126,0,0,1129,7,37,1132,0,0,76,1150,1150, 1138,37,0,1141,0,1150,1144,0,0,1147,19,19,1150,0,0,1153,0,19,1156,0,0,1159, 19,0,1162,0,25,1165,0,0,1168,7,37,1171,0,0,76,8,37,1177,1213,1213,1180,37, 0,1183,0,1213,1186,0,0,1189,1214,1214,1192,37,0,1195,0,1214,1198,0,0,1201, 1220,1220,1204,37,0,1207,0,1220,1210,0,0,1213,0,0,1216,25,0,1219,0,0,1222,0, 0,1225,1240,1240,1228,39,0,1231,0,1240,1234,0,0,1237,25,25,1240,0,0,1243,0, 25,1246,0,0,1249,0,0,76,8,39,1255,0,0,76,8,37,1261,1297,1297,1264,37,0,1267, 0,1297,1270,0,0,1273,1298,1298,1276,37,0,1279,0,1298,1282,0,0,1285,1304,1304, 1288,37,0,1291,0,1304,1294,0,0,1297,0,0,1300,25,0,1303,0,0,1306,0,0,1309,25, 25,1312,37,0,1315,0,25,1318,0,0,1321,7,25,1324,0,0,76,37,37,1330,25,0,1333, 0,37,1336,0,0,1339,0,0,76,8,37,1345,1381,1381,1348,37,0,1351,0,1381,1354,0,0, 1357,1382,1382,1360,37,0,1363,0,1382,1366,0,0,1369,1388,1388,1372,37,0,1375, 0,1388,1378,0,0,1381,0,0,1384,25,0,1387,0,0,1390,0,0,1393,25,25,1396,39,0, 1399,0,25,1402,0,0,1405,0,0,76,39,39,1411,25,0,1414,0,39,1417,0,0,1420,1435, 1435,1423,37,0,1426,0,1435,1429,0,0,1432,25,25,1435,0,0,1438,0,25,1441,0,0, 1444,7,37,1447,0,0,76,1465,1465,1453,39,0,1456,0,1465,1459,0,0,1462,19,19, 1465,0,0,1468,0,19,1471,0,0,1474,7,19,1477,1513,1513,1480,39,0,1483,0,1513, 1486,0,0,1489,1514,1514,1492,39,0,1495,0,1514,1498,0,0,1501,1520,1520,1504, 39,0,1507,0,1520,1510,0,0,1513,0,0,1516,19,0,1519,0,0,1522,0,0,1525,0,0,76, 1543,1543,1531,39,0,1534,0,1543,1537,0,0,1540,19,19,1543,0,0,1546,0,19,1549, 0,0,1552,19,0,1558,0,0,1564,0,0,1561,0,19,1654,8,19,1567,1603,1603,1570,39, 0,1573,0,1603,1576,0,0,1579,1604,1604,1582,39,0,1585,0,1604,1588,0,0,1591, 1610,1610,1594,39,0,1597,0,1610,1600,0,0,1603,0,0,1606,19,0,1609,0,0,1612,0, 0,1615,1630,1630,1618,18,0,1621,0,1630,1624,0,0,1627,21,21,1630,0,0,1633,0, 21,1636,0,0,1639,18,18,1642,21,0,1645,0,18,1648,0,0,1651,0,0,76,7,18,1657,8, 39,1660,0,0,76,25,0,1666,0,25,1669,0,0,1672,25,0,1675,0,25,1678,0,0,1681,25, 0,1684,0,25,1687,0,0,1690,25,0,1693,0,25,1696,0,0,1699,25,0,1702,0,25,1705,0, 0,1708,25,0,1711,0,25,1714,0,0,1717,25,0,1720,0,25,1723,0,0,1726,25,0,1729,0, 25,1732,0,0,1735,25,0,1738,0,25,1741,0,0,1744,25,0,1747,0,25,1750,0,0,1753, 25,0,1756,0,25,1759,0,0,1762,25,0,1765,0,25,1768,0,0,1771,25,0,1774,0,25, 1777,0,0,1780,25,0,1783,0,25,1786,0,0,1789,19,19,1792,25,0,1795,0,19,1798,0, 0,1801,25,25,1804,0,0,1807,0,25,1810,0,0,1813,19,0,1819,0,0,1825,0,0,1822, 0,19,1837,25,25,1828,7,0,1831,0,25,1834,0,0,1837,0,0,76,1855,1855,1843,18, 0,1846,0,1855,1849,0,0,1852,18,18,1855,0,0,1858,0,18,1861,0,0,1864,0,0,76, 19,19,1870,25,0,1873,0,19,1876,0,0,1879,21,21,1882,0,0,1885,0,21,1888,0,0, 1891,19,0,1897,0,0,1903,0,0,1900,0,19,1915,21,21,1906,7,0,1909,0,21,1912,0, 0,1915,8,19,1918,0,19,1933,21,21,1924,7,0,1927,0,21,1930,0,0,1933,1948,1948, 1936,37,0,1939,0,1948,1942,0,0,1945,25,25,1948,0,0,1951,0,25,1954,0,0,1957, 7,37,1960,21,0,1966,0,0,1972,0,0,1969,0,21,1978,7,18,1975,0,0,76,1993,1993, 1981,18,0,1984,0,1993,1987,0,0,1990,19,19,1993,0,0,1996,0,19,1999,0,0,2002, 18,18,2005,19,0,2008,0,18,2011,0,0,2014,0,0,76,19,19,2020,25,0,2023,0,19, 2026,0,0,2029,25,25,2032,0,0,2035,0,25,2038,0,0,2041,0,19,2056,25,25,2047,7, 0,2050,0,25,2053,0,0,2056,0,0,76,19,19,2062,25,0,2065,0,19,2068,0,0,2071,25, 25,2074,7,0,2077,0,25,2080,0,0,2083,19,0,2089,0,0,2095,0,0,2092,0,19,2107, 25,25,2098,0,0,2101,0,25,2104,0,0,2107,8,19,2110,0,19,2125,25,25,2116,0,0, 2119,0,25,2122,0,0,2125,0,0,76,19,19,2131,25,0,2134,0,19,2137,0,0,2140,25,25, 2143,0,0,2146,0,25,2149,0,0,2152,19,0,2158,0,0,2161,0,0,2173,25,25,2164,7,0, 2167,0,25,2170,0,0,2173,7,19,2176,19,0,2182,0,0,2185,0,0,2197,25,25,2188,7,0, 2191,0,25,2194,0,0,2197,0,0,76,2215,2215,2203,37,0,2206,0,2215,2209,0,0,2212, 19,19,2215,0,0,2218,0,19,2221,0,0,2224,7,37,2227,25,19,2230,25,25,2233,0,0, 2236,0,25,2239,0,0,2242,19,0,2248,0,0,2251,0,0,2263,25,25,2254,7,0,2257,0, 25,2260,0,0,2263,0,0,76,2281,2281,2269,37,0,2272,0,2281,2275,0,0,2278,19,19, 2281,0,0,2284,0,19,2287,0,0,2290,7,37,2293,25,19,2296,25,25,2299,0,0,2302,0, 25,2305,0,0,2308,0,19,2323,25,25,2314,7,0,2317,0,25,2320,0,0,2323,0,0,76,25, 0,2329,0,25,2332,0,0,2335,0,0,76,20,20,2341,21,21,2344,25,0,2350,0,0,2353,0, 0,2386,11,11,2356,25,11,2359,25,25,2362,11,0,2365,0,25,2368,0,0,2371,8,25, 2374,20,20,2377,7,0,2380,0,20,2383,0,0,2386,19,19,2389,8,0,2392,0,19,2395, 0,0,2398,25,0,2404,0,0,2407,0,0,2419,19,19,2410,0,0,2413,0,19,2416,0,0,2419, 19,0,2425,0,0,2431,0,0,2428,0,19,2440,9,25,2434,7,21,2437,0,0,2386,8,21,2443, 20,0,2449,0,0,2455,0,0,2452,0,20,2479,5,21,2458,11,11,2461,21,11,2464,21,21, 2467,11,0,2470,0,21,2473,0,0,2476,8,21,2479,25,25,2482,21,0,2485,0,25,2488, 0,0,2491,0,0,76,19,19,2497,10,0,2500,0,19,2503,0,0,2506,20,20,2509,2524,2524, 2512,37,0,2515,0,2524,2518,0,0,2521,21,21,2524,0,0,2527,0,21,2530,0,0,2533,7, 37,2536,19,0,2542,0,0,2548,0,0,2545,0,19,2743,20,0,2551,0,20,2554,0,0,2557, 24,24,2560,25,0,2563,0,24,2566,0,0,2569,22,22,2572,0,0,2575,0,22,2578,0,0, 2581,24,0,2587,0,0,2590,0,0,2602,22,22,2593,7,0,2596,0,22,2599,0,0,2602,7, 24,2605,24,0,2611,0,0,2614,0,0,2626,22,22,2617,7,0,2620,0,22,2623,0,0,2626, 24,24,2629,21,0,2632,0,24,2635,0,0,2638,23,23,2641,0,0,2644,0,23,2647,0,0, 2650,24,0,2656,0,0,2659,0,0,2671,23,23,2662,7,0,2665,0,23,2668,0,0,2671,7,24, 2674,24,0,2680,0,0,2683,0,0,2695,23,23,2686,7,0,2689,0,23,2692,0,0,2695,22,0, 2698,0,23,2701,0,0,2704,23,0,2710,0,0,2716,0,0,2713,0,23,2719,7,20,2719,21,0, 2722,0,21,2725,0,0,2728,25,0,2731,0,25,2734,0,0,2737,8,19,2740,0,0,2536,25, 25,2746,20,0,2749,0,25,2752,0,0,2755,0,0,76,19,19,2761,10,0,2764,0,19,2767, 0,0,2770,20,20,2773,2788,2788,2776,37,0,2779,0,2788,2782,0,0,2785,21,21,2788, 0,0,2791,0,21,2794,0,0,2797,7,37,2800,19,0,2806,0,0,2812,0,0,2809,0,19,3040, 20,0,2815,0,20,2818,0,0,2821,24,24,2824,25,0,2827,0,24,2830,0,0,2833,22,22, 2836,0,0,2839,0,22,2842,0,0,2845,24,0,2851,0,0,2854,0,0,2866,22,22,2857,7,0, 2860,0,22,2863,0,0,2866,7,24,2869,24,0,2875,0,0,2878,0,0,2890,22,22,2881,7,0, 2884,0,22,2887,0,0,2890,24,24,2893,21,0,2896,0,24,2899,0,0,2902,23,23,2905,0, 0,2908,0,23,2911,0,0,2914,24,0,2920,0,0,2923,0,0,2935,23,23,2926,7,0,2929,0, 23,2932,0,0,2935,7,24,2938,24,0,2944,0,0,2947,0,0,2959,23,23,2950,7,0,2953, 0,23,2956,0,0,2959,22,0,2962,0,23,2965,0,0,2968,7,23,2971,22,22,2974,8,0, 2977,0,22,2980,0,0,2983,23,0,2989,0,0,2995,0,0,2992,0,23,3007,22,22,2998,0, 0,3001,0,22,3004,0,0,3007,22,0,3010,0,20,3013,0,0,3016,21,0,3019,0,21,3022,0, 0,3025,25,0,3028,0,25,3031,0,0,3034,8,19,3037,0,0,2800,25,25,3043,20,0,3046, 0,25,3049,0,0,3052,0,0,76,19,19,3058,10,0,3061,0,19,3064,0,0,3067,20,20,3070, 3085,3085,3073,37,0,3076,0,3085,3079,0,0,3082,21,21,3085,0,0,3088,0,21,3091, 0,0,3094,7,37,3097,19,0,3103,0,0,3109,0,0,3106,0,19,3343,20,0,3112,0,20,3115, 0,0,3118,24,24,3121,25,0,3124,0,24,3127,0,0,3130,22,22,3133,0,0,3136,0,22, 3139,0,0,3142,24,0,3148,0,0,3151,0,0,3163,22,22,3154,7,0,3157,0,22,3160,0, 0,3163,7,24,3166,24,0,3172,0,0,3175,0,0,3187,22,22,3178,7,0,3181,0,22,3184, 0,0,3187,24,24,3190,21,0,3193,0,24,3196,0,0,3199,23,23,3202,0,0,3205,0,23, 3208,0,0,3211,24,0,3217,0,0,3220,0,0,3232,23,23,3223,7,0,3226,0,23,3229,0,0, 3232,7,24,3235,24,0,3241,0,0,3244,0,0,3256,23,23,3247,7,0,3250,0,23,3253,0, 0,3256,22,0,3259,0,23,3262,0,0,3265,9,0,3268,0,23,3271,0,0,3274,22,22,3277,8, 0,3280,0,22,3283,0,0,3286,23,0,3292,0,0,3298,0,0,3295,0,23,3310,22,22,3301,0, 0,3304,0,22,3307,0,0,3310,22,0,3313,0,20,3316,0,0,3319,21,0,3322,0,21,3325,0, 0,3328,25,0,3331,0,25,3334,0,0,3337,8,19,3340,0,0,3097,25,25,3346,20,0,3349, 0,25,3352,0,0,3355,0,0,76,484,0,1060,484,1,1060,484,-1,1060,0,12546,43,232, 1060,6734,12546,45,226,1060,6744,11009,1135,1060,6754,11521,1090,1060,6762, 26886,30318,29285,116,238,1060,6770,25091,25977,220,1060,6784,25603,28789,652, 1060,6794,25604,28530,112,796,1060,6804,28420,25974,114,706,1060,6816,29444, 24951,112,565,1060,6828,23299,23872,262,1060,6840,23299,23841,289,1060,6850, 29443,16496,1258,1060,6860,29443,8560,1327,1060,6870,12290,62,2017,1060,6880, 12290,61,2059,1060,6890,12290,60,2128,1060,6900,27651,25203,1663,1060,6910, 15361,2200,1060,6920,15873,2266,1060,6928,12802,47,2338,1060,6936,28418,114, 2494,1060,6946,30723,29295,2758,1060,6956,24835,25710,3055,1060,6966,15366, 28005,29801,62,484,28,1060,6976,15365,25963,15993,484,26,1060,6992,15369, 26988,25972,24946,15980,484,30,1060,7006,15366,28515,25708,62,484,24,1060, 7024,15364,27503,62,484,32,1060,7040,15366,25445,28520,62,484,34,1060,7054, 26628,29285,101,484,26,262,1060,7070,25092,29537,101,484,58,1060,7086,25603, 27760,484,60,1060,7100,26627,25708,484,56,1060,7112,25090,108,484,32,1060, 7124,15875,28265,484,62,1060,7136,26627,30821,484,16,484,29,289,1060,7148, 25607,25445,28009,27745,484,10,484,29,289,1060,7166,29446,30063,25458,101, 484,32256,484,34,262,1060,7188,27652,29537,116,484,33,262,1060,7210,29445, 24948,25972,484,54,1060,7226,23809,3364,484,27,289,1060,7240,23361,3358,484, 27,289,1060,7254,28163,28777,565,796,1060,7268,29700,25461,107,565,706,1060, 7280,16132,30052,112,652,1867,3655,652,1060,7294,29187,29807,826,565,907,565, 1060,7312,11524,28530,116,3659,3659,1060,7328,12805,29284,28783,796,796,1060, 7342,12804,30052,112,706,706,1060,7356,12291,15676,2017,2059,1060,7370,12291, 15932,2059,2059,1060,7382,15617,1090,2059,1060,7394,15362,62,3699,2059,1060, 7404,15874,61,2200,2059,1060,7416,15362,61,2266,2059,1060,7428,12291,15678, 2128,2059,1060,7440,28166,26469,29793,101,226,238,1060,7452,29443,25662,652, 2128,1060,7468,24835,29538,3737,1867,3747,3731,1060,7480,12802,42,2326,1060, 7496,25348,27749,108,484,2,1060,7506,25349,27749,11116,3757,1135,1060,7520, 29954,60,3682,2128,2059,565,2128,2059,3705,826,2200,907,3705,1060,7534,29954, 62,565,3770,1060,7564,29955,15678,3770,2059,1060,7576,29955,15676,3785,2059, 1060,7588,10753,3682,3770,1867,3807,565,988,1060,7600,25863,25976,30051,25972, 2338,826,1060,7618,27396,31077,63,427,652,2128,1867,3829,796,3358,1060,3364, 1060,7634,27395,31077,484,13,262,3814,1867,3834,1060,7662,25860,26989,116,484, 14,262,3814,1060,7682,25346,114,484,13,3845,484,10,3845,1060,7700,16385,2338, 262,1060,7720,8449,2338,289,1060,7730,28676,25449,107,1258,1135,262,1060,7740, 11010,33,2338,3644,262,1135,565,289,1060,7756,27654,26739,26217,116,3651,1867, 3902,226,565,3751,565,1840,3893,1060,7776,29190,26739,26217,116,3651,1867,3917, 226,565,2338,565,1840,3908,1060,7806,25346,64,652,3862,565,1663,1867,3932,484, 8,3908,1840,3935,484,255,3055,1060,7836,25346,33,565,484,255,3055,652,484, 8,3893,2494,565,3644,652,3862,565,1663,2059,484,255,2758,826,706,2758,907, 3055,2758,565,3867,1060,7872,27907,30817,3682,2200,1867,3977,3637,1840,3978, 796,1060,7934,27907,28265,3682,2266,1867,3989,3637,1840,3990,796,1060,7958, 25349,30063,29806,652,232,565,3921,1060,7982,27655,26479,25449,27745,3694, 1867,4011,3361,1840,4012,3358,1060,8000,24839,26988,28263,25701,652,1663, 4005,1135,1060,8026,24837,26988,28263,3539,4018,484,26,289,1060,8046,11015, 29811,26994,26478,3361,706,3982,3659,706,1135,3659,3659,1090,1060,8066,29700, 28793,101,652,1867,4062,565,3995,3845,565,226,1840,4052,3675,1060,8096,25349, 28525,25974,826,1840,4079,826,652,3921,1174,3939,232,907,232,1528,4071,3675, 1060,8128,25603,9327,907,907,3751,652,3995,1135,4018,2338,826,565,826,1060, 8166,10243,10532,4086,1060,8196,11778,36,4086,3995,4052,1060,8206,29445,24944, 25955,3565,3845,1060,8220,25349,29793,26723,1258,826,484,32,262,826,1342,484, 32,289,3814,907,484,32,289,1252,3358,1060,8234,29701,29288,30575,3651,1867, 4160,484,32,262,1408,907,484,32,289,907,565,826,1327,796,907,1060,8278,29955, 11117,3682,1135,826,1174,3358,3711,826,3682,3055,2128,907,2494,826,2494,2128, 907,3055,238,232,907,565,1060,8322,25607,25966,24935,25972,238,826,238,3361, 4164,907,1135,1060,8372,25602,43,826,565,826,4164,907,1135,907,1135,1060,8398, 29955,10861,3358,565,484,15,826,652,4164,826,826,652,4164,907,1135,907,1867, 4235,826,706,4164,907,1135,1528,4219,3659,796,1060,8422,29958,12141,28525,100, 3651,2059,1867,4252,484,-10,4143,3682,3770,1867,4292,3731,484,15,826,826,652, 4164,826,826,652,4164,907,1135,652,907,1174,565,826,4164,907,2494,1867,4285, 826,796,232,907,1840,4286,796,907,1528,4260,796,565,1060,3675,796,3364,652, 1060,8480,27909,27951,25711,652,2128,652,826,1867,4311,3731,826,4191,907,826, 652,2128,1867,4318,1174,1135,907,4245,907,1867,4327,565,3731,565,1060,1060, 8594,12036,28525,100,706,2128,565,4301,1060,8656,27907,25711,4332,796,1060, 8674,12033,4332,3637,1060,8686,25605,28773,26740,484,36,262,1258,1090,226, 1060,8696,10246,28005,29801,41,394,1060,8718,10246,29284,28783,41,796,1060, 8732,25860,26723,111,484,17,262,3814,1060,8746,29699,28769,652,4377,706,3939, 232,1060,8764,27396,24948,112,652,652,484,13,3705,826,484,10,3705,907,3055, 1867,4439,652,484,8,3705,826,484,127,3705,907,3055,1867,4423,3565,4385,1060, 826,706,1174,2200,652,1867,4436,484,8,652,4377,4114,4377,907,1135,1060,796, 3637,652,1060,8782,24838,25443,28773,116,706,1135,706,3682,3705,1867,4470, 3834,652,3565,1090,484,95,3770,1867,4467,4385,1840,4468,4395,1840,4451,796, 706,1090,1060,8886,28933,25973,31090,484,32256,484,256,4448,484,68,3867,796, 3358,3571,3867,1060,8948,16134,25956,29808,104,4352,2266,1867,4503,484,-4, 4143,1060,8982,11529,29300,26977,26988,26478,826,1840,4524,3565,706,1174, 1135,3921,2200,1867,4524,907,232,1060,1528,4513,3358,1060,9008,27652,28527, 107,565,826,3659,3659,652,1867,4559,706,3921,1174,1090,1174,3565,3699,484,4, 3874,3814,1867,4556,1252,3659,796,1060,4038,1840,4536,1252,3659,796,1060,9056, 28168,11631,24941,25460,104,1867,4573,2017,1060,3694,1060,9126,27909,29793, 26723,4569,238,1060,9150,28677,29281,25971,826,3599,796,3571,3862,1135,484, 68,3862,3571,3862,1090,1174,826,706,907,565,826,826,1174,484,9138,4532,3682, 907,484,9158,4532,565,907,1090,826,1090,907,232,3571,3881,907,3565,3699,1867, 4629,4510,3358,3970,1060,9164,29446,24944,25955,115,652,2017,1867,4645,4114, 226,1840,4637,796,1060,9264,26628,27759,100,3364,3559,3881,3559,3862,3939, 1060,9294,8962,62,3675,3559,3862,484,32512,706,1090,1060,9316,25863,29816, 24946,29795,652,826,4245,907,565,826,4245,907,3659,1060,9338,25605,26473, 29801,484,9,706,2200,484,7,3055,1135,484,48,1135,1060,9368,8961,484,2,4496, 3358,3547,3862,4674,4688,4651,1060,9400,8962,115,4702,3682,2494,2059,1867, 4715,1060,9424,15362,35,484,32512,3559,3867,1060,9444,29444,26473,110,2128, 1867,4740,484,45,4651,1060,9460,29955,29230,826,3358,4725,4715,4661,907,706, 1090,4637,4052,1060,9482,29954,46,3358,4725,4715,4661,4114,4052,1060,9510, 11777,652,826,3743,3358,4725,4715,907,4734,4661,4114,4052,1060,9530,15879, 30062,25197,29285,3682,826,826,796,3921,3547,3862,826,484,48,1090,484,9,706, 2200,1867,4809,484,7,1090,652,484,10,2200,2494,652,907,3770,2059,1867,4819, 796,907,907,1060,565,3547,3862,4214,796,3659,3547,3862,4214,4202,907,907, 4038,652,2059,1867,4784,1060,9558,28167,28021,25954,16242,3364,3553,3867, 3547,3862,826,706,3921,484,45,3699,652,826,1867,4858,4038,706,3921,484,36, 3699,1867,4867,3577,4038,826,826,3358,652,907,907,4784,652,1867,4902,706, 3921,484,46,2758,1867,4894,3659,796,3659,907,3675,3358,907,3547,3867,1060, 226,3553,3867,232,3553,3862,1840,4873,3675,907,1867,4907,4191,907,3547,3867, 3364,1060,9674,25351,28015,24944,25970,3659,706,1090,3651,1867,4928,826,3675, 907,3637,1060,826,1840,4943,3995,3659,3995,3659,1090,3651,1867,4943,1252, 3637,3637,1060,1528,4931,3675,3358,1060,9824,11778,115,4352,826,1840,4958, 1174,3874,4767,1528,4955,1060,9896,28163,24934,3764,1060,9922,25347,24934, 4964,652,3921,484,31,3055,1135,3764,3757,3731,3055,1060,9932,24837,27756, 29807,4018,484,52,3881,1060,9962,11265,4027,3539,3867,3757,4985,1060,9980, 10246,26982,25710,41,565,826,652,652,1867,5039,652,4964,3995,484,159,3055, 1174,3995,4917,2059,1867,5034,1252,652,4964,484,64,565,3862,3055,3694,3361, 2494,3731,1060,3637,652,3862,1840,5006,3675,3358,907,3358,1060,9996,26116, 28265,100,3609,5003,3659,796,1060,10088,10249,26988,25972,24946,10604,3617, 3862,1867,5067,484,484,4992,4992,1060,10106,27719,29801,29285,27745,3509, 3862,3814,1060,10136,25352,28015,26992,25964,44,2338,4027,4992,1060,10154, 16134,28518,28277,100,1867,5095,1060,4114,3995,4052,484,63,3845,3853,484, -13,4143,1060,10174,26889,29806,29285,29296,29797,5048,3651,1867,5144,3617, 3862,1867,5129,2017,1867,5126,4969,3814,1060,4969,5083,1060,796,652,4964, 3921,484,32,3055,1867,5141,484,-14,4143,4969,3814,1060,652,826,3995,4842, 1867,5167,1252,3553,3862,2128,1867,5159,796,1840,5165,3617,3862,1867,5164, 565,5073,5073,1060,907,3358,5092,1060,10212,30468,29295,100,4586,3539,652, 826,3682,3867,232,565,4068,907,1060,10342,30469,29295,29540,3609,652,4964, 3995,484,31,3055,4114,4052,3862,3651,2059,1867,5191,1060,10372,14849,4027, 3539,3609,4992,484,33,289,3565,5175,652,3921,2059,1867,5224,484,-10,4143, 3995,1135,484,26,289,4027,3622,484,-17730,1060,10410,15201,3629,484,-17730, 3705,1867,5245,484,-22,4143,484,1060,4992,1060,10468,25189,26469,28265,4027, 3539,1060,10498,30053,29806,27753,484,1867,4992,2338,4992,1060,10512,24933, 24935,28265,484,1840,4992,2338,4992,1060,10532,26978,102,484,1867,4992,3539, 3358,4992,1060,10552,29796,25960,110,3539,2338,565,3867,1060,10572,26211, 29295,484,826,4992,3539,1060,10590,28260,30821,116,484,1528,4992,2338,4992, 1060,10606,10049,3565,5175,5048,5092,4969,5073,1060,10626,25383,28015,26992, 25964,907,652,3751,3862,4992,232,826,1060,10644,29283,8560,5327,1408,1060, 10670,29283,16496,5327,1342,1060,10682,15970,114,5327,826,1060,10694,29282, 62,5327,907,1060,10706,29282,64,5327,1174,1060,10718,29285,29284,28783,5327, 1252,1060,10730,25956,27000,116,5327,1060,1060,10744,11874,34,5327,4106,484, 34,5175,3995,1135,484,26,289,4027,1060,10758,9314,34,5327,4101,484,34,5175, 3995,1135,484,26,289,4027,1060,10788,10305,484,41,4586,3675,1060,10818,23617, 3599,796,3862,484,31,289,1060,10832,26889,28013,25701,24937,25972,3609,4964, 3862,484,64,2494,3609,4964,3867,1060,10850,29443,25957,3565,5175,5048,5092, 3853,652,3862,484,1060,3705,1867,5462,652,3862,4758,3764,1840,5449,3862,4758, 1060,10882,25604,28021,112,4018,3651,1867,5483,565,652,3862,4767,3764,565, 3757,1090,1840,5470,796,1060,10930,25349,29547,28021,4018,652,484,-16162, 1090,826,3651,1867,5510,565,652,3862,907,1135,826,3764,565,3757,1090,1840, 5495,796,907,1060,10970,10244,27503,41,4106,8195,27503,3853,1060,11026,25860, 24950,108,3565,5175,652,3921,1867,5537,5112,3361,4496,1840,5526,796,484,16, 262,3814,1060,11044,26884,26222,111,3853,4106,16667,29813,28520,14962,8224, 26962,26723,29281,8292,24906,25965,8307,28488,25975,3853,4106,17694,24941, 27753,8250,8224,28520,25975,29230,27182,14382,16441,28007,26977,11884,28515, 109,3853,4106,21033,28773,14959,8224,8224,29800,28788,14963,12079,26983, 26740,25205,25390,28015,26671,30575,29285,12138,30067,27746,29029,3853,4106, 19494,25449,28261,25971,8250,26708,8293,28245,26988,25955,29550,8293,8239, 30032,27746,25449,17440,28015,26977,110,3853,1060,11086,26883,26990,3588, 3629,3358,484,31,289,3364,484,30,289,1060,11256,28932,26997,116,5631,484,3, 262,1663,1867,5658,484,8742,484,17,289,484,3,262,484,4,3055,1867,5676,4106, 25867,28486,29810,8296,12662,12846,3539,4767,3853,484,3,262,484,2,3055,1867, 5716,484,35,262,3751,652,3539,565,1090,5489,484,4,262,3705,1867,5707,4106, 25354,29547,28021,26144,26977,108,220,484,3,262,484,2,2758,484,3,289,484,16, 262,3814,4478,484,11052,4121,3651,1867,5734,4114,4767,484,63,3845,3853,5631, 1840,5720,1060,11284,25348,27759,100,484,12,262,3814,1060}; while(p>=0){int a=m[p++],b=m[p++],c=m[p++];a<0?m[b]=getchar():b<0?putchar(m[a]):(m[b]-=m[a]) <=0?p=c:0;}}

[wal-phisics]

subleq.dec

0 0 52 11 12992 3409 22916 -32768 -2 -1 1 2 16 0 6462 7834 9054 10530 12494 9054 0 0 0 0 0 0 0 0 0 0 10 -1 0 0 12974 0 0 0 0 0 0 0 0 0 90 12974 11022 12786 -32768 -32768 32512 32512 49 49 55 48 0 58 0 49 61 0 0 64 51 51 67 50 0 70 0 51 73 0 0 76 20 20 79 14 0 82 0 20 85 0 0 88 21 21 91 20 0 94 0 21 97 0 0 100 9 20 103 118 118 106 21 0 109 0 118 112 0 0 115 23 23 118 0 0 121 0 23 124 0 0 127 21 21 130 23 0 133 0 21 136 0 0 139 5 23 142 23 0 148 0 0 151 0 0 166 165 165 154 21 0 157 0 165 160 0 0 163 0 0 166 9 51 169 205 205 172 51 0 175 0 205 178 0 0 181 206 206 184 51 0 187 0 206 190 0 0 193 212 212 196 51 0 199 0 212 202 0 0 205 0 0 208 20 0 211 0 0 214 0 0 217 20 20 220 21 0 223 0 20 226 0 0 229 0 0 88 0 0 -1 0 0 88 10 27 241 0 0 88 9 27 247 0 0 88 13 13 253 27 13 256 27 27 259 13 0 262 0 27 265 0 0 268 10 27 271 0 0 88 289 289 277 27 0 280 0 289 283 0 0 286 27 27 289 0 0 292 0 27 295 0 0 298 0 0 88 316 316 304 49 0 307 0 316 310 0 0 313 21 21 316 0 0 319 0 21 322 0 0 325 361 361 328 27 0 331 0 361 334 0 0 337 362 362 340 27 0 343 0 362 346 0 0 349 368 368 352 27 0 355 0 368 358 0 0 361 0 0 364 21 0 367 0 0 370 0 0 373 9 49 376 391 391 379 49 0 382 0 391 385 0 0 388 27 27 391 0 0 394 0 27 397 0 0 400 9 49 403 0 0 88 27 -1 409 424 424 412 49 0 415 0 424 418 0 0 421 27 27 424 0 0 427 0 27 430 0 0 433 9 49 436 0 0 88 10 49 442 478 478 445 49 0 448 0 478 451 0 0 454 479 479 457 49 0 460 0 479 463 0 0 466 485 485 469 49 0 472 0 485 475 0 0 478 0 0 481 27 0 484 0 0 487 0 0 490 505 505 493 20 0 496 0 505 499 0 0 502 27 27 505 0 0 508 0 27 511 0 0 514 9 20 517 0 0 88 21 21 523 27 0 526 0 21 529 0 0 532 547 547 535 49 0 538 0 547 541 0 0 544 27 27 547 0 0 550 0 27 553 0 0 556 592 592 559 49 0 562 0 592 565 0 0 568 593 593 571 49 0 574 0 593 577 0 0 580 599 599 583 49 0 586 0 599 589 0 0 592 0 0 595 21 0 598 0 0 601 0 0 604 0 0 88 10 49 610 646 646 613 49 0 616 0 646 619 0 0 622 647 647 625 49 0 628 0 647 631 0 0 634 653 653 637 49 0 640 0 653 643 0 0 646 0 0 649 27 0 652 0 0 655 0 0 658 0 0 88 676 676 664 49 0 667 0 676 670 0 0 673 21 21 676 0 0 679 0 21 682 0 0 685 10 49 688 724 724 691 49 0 694 0 724 697 0 0 700 725 725 703 49 0 706 0 725 709 0 0 712 731 731 715 49 0 718 0 731 721 0 0 724 0 0 727 27 0 730 0 0 733 0 0 736 27 27 739 21 0 742 0 27 745 0 0 748 0 0 88 766 766 754 49 0 757 0 766 760 0 0 763 27 27 766 0 0 769 0 27 772 0 0 775 9 49 778 0 0 88 9 51 784 820 820 787 51 0 790 0 820 793 0 0 796 821 821 799 51 0 802 0 821 805 0 0 808 827 827 811 51 0 814 0 827 817 0 0 820 0 0 823 27 0 826 0 0 829 0 0 832 847 847 835 49 0 838 0 847 841 0 0 844 27 27 847 0 0 850 0 27 853 0 0 856 9 49 859 0 0 88 10 49 865 901 901 868 49 0 871 0 901 874 0 0 877 902 902 880 49 0 883 0 902 886 0 0 889 908 908 892 49 0 895 0 908 898 0 0 901 0 0 904 27 0 907 0 0 910 0 0 913 928 928 916 51 0 919 0 928 922 0 0 925 27 27 928 0 0 931 0 27 934 0 0 937 10 51 940 0 0 88 958 958 946 49 0 949 0 958 952 0 0 955 21 21 958 0 0 961 0 21 964 0 0 967 23 23 970 21 0 976 0 0 982 0 0 979 0 21 997 27 0 985 0 23 988 0 0 991 10 21 994 0 0 970 27 27 1000 23 0 1003 0 27 1006 0 0 1009 9 49 1012 0 0 88 1030 1030 1018 51 0 1021 0 1030 1024 0 0 1027 20 20 1030 0 0 1033 0 20 1036 0 0 1039 10 51 1042 0 0 88 1060 1060 1048 49 0 1051 0 1060 1054 0 0 1057 21 21 1060 0 0 1063 0 21 1066 0 0 1069 27 21 1072 27 27 1075 21 0 1078 0 27 1081 0 0 1084 9 49 1087 0 0 88 1105 1105 1093 49 0 1096 0 1105 1099 0 0 1102 21 21 1105 0 0 1108 0 21 1111 0 0 1114 21 0 1117 0 27 1120 0 0 1123 9 49 1126 0 0 88 10 49 1132 1168 1168 1135 49 0 1138 0 1168 1141 0 0 1144 1169 1169 1147 49 0 1150 0 1169 1153 0 0 1156 1175 1175 1159 49 0 1162 0 1175 1165 0 0 1168 0 0 1171 27 0 1174 0 0 1177 0 0 1180 1195 1195 1183 51 0 1186 0 1195 1189 0 0 1192 27 27 1195 0 0 1198 0 27 1201 0 0 1204 0 0 88 10 51 1210 0 0 88 10 49 1216 1252 1252 1219 49 0 1222 0 1252 1225 0 0 1228 1253 1253 1231 49 0 1234 0 1253 1237 0 0 1240 1259 1259 1243 49 0 1246 0 1259 1249 0 0 1252 0 0 1255 27 0 1258 0 0 1261 0 0 1264 27 27 1267 49 0 1270 0 27 1273 0 0 1276 9 27 1279 0 0 88 49 49 1285 27 0 1288 0 49 1291 0 0 1294 0 0 88 10 49 1300 1336 1336 1303 49 0 1306 0 1336 1309 0 0 1312 1337 1337 1315 49 0 1318 0 1337 1321 0 0 1324 1343 1343 1327 49 0 1330 0 1343 1333 0 0 1336 0 0 1339 27 0 1342 0 0 1345 0 0 1348 27 27 1351 51 0 1354 0 27 1357 0 0 1360 0 0 88 51 51 1366 27 0 1369 0 51 1372 0 0 1375 1390 1390 1378 49 0 1381 0 1390 1384 0 0 1387 27 27 1390 0 0 1393 0 27 1396 0 0 1399 9 49 1402 0 0 88 1420 1420 1408 51 0 1411 0 1420 1414 0 0 1417 21 21 1420 0 0 1423 0 21 1426 0 0 1429 21 0 1435 0 0 1441 0 0 1438 0 21 1531 10 21 1444 1480 1480 1447 51 0 1450 0 1480 1453 0 0 1456 1481 1481 1459 51 0 1462 0 1481 1465 0 0 1468 1487 1487 1471 51 0 1474 0 1487 1477 0 0 1480 0 0 1483 21 0 1486 0 0 1489 0 0 1492 1507 1507 1495 20 0 1498 0 1507 1501 0 0 1504 23 23 1507 0 0 1510 0 23 1513 0 0 1516 20 20 1519 23 0 1522 0 20 1525 0 0 1528 0 0 88 9 20 1534 10 51 1537 0 0 88 27 0 1543 0 27 1546 0 0 1549 27 0 1552 0 27 1555 0 0 1558 27 0 1561 0 27 1564 0 0 1567 27 0 1570 0 27 1573 0 0 1576 27 0 1579 0 27 1582 0 0 1585 27 0 1588 0 27 1591 0 0 1594 27 0 1597 0 27 1600 0 0 1603 27 0 1606 0 27 1609 0 0 1612 27 0 1615 0 27 1618 0 0 1621 27 0 1624 0 27 1627 0 0 1630 27 0 1633 0 27 1636 0 0 1639 27 0 1642 0 27 1645 0 0 1648 27 0 1651 0 27 1654 0 0 1657 27 0 1660 0 27 1663 0 0 1666 21 21 1669 27 0 1672 0 21 1675 0 0 1678 27 27 1681 0 0 1684 0 27 1687 0 0 1690 21 0 1696 0 0 1702 0 0 1699 0 21 1714 27 27 1705 9 0 1708 0 27 1711 0 0 1714 0 0 88 1732 1732 1720 20 0 1723 0 1732 1726 0 0 1729 20 20 1732 0 0 1735 0 20 1738 0 0 1741 0 0 88 21 21 1747 27 0 1750 0 21 1753 0 0 1756 23 23 1759 0 0 1762 0 23 1765 0 0 1768 21 0 1774 0 0 1780 0 0 1777 0 21 1792 23 23 1783 9 0 1786 0 23 1789 0 0 1792 10 21 1795 0 21 1810 23 23 1801 9 0 1804 0 23 1807 0 0 1810 1825 1825 1813 49 0 1816 0 1825 1819 0 0 1822 27 27 1825 0 0 1828 0 27 1831 0 0 1834 9 49 1837 23 0 1843 0 0 1849 0 0 1846 0 23 1855 9 20 1852 0 0 88 1870 1870 1858 20 0 1861 0 1870 1864 0 0 1867 21 21 1870 0 0 1873 0 21 1876 0 0 1879 20 20 1882 21 0 1885 0 20 1888 0 0 1891 0 0 88 21 21 1897 27 0 1900 0 21 1903 0 0 1906 27 27 1909 0 0 1912 0 27 1915 0 0 1918 0 21 1933 27 27 1924 9 0 1927 0 27 1930 0 0 1933 0 0 88 21 21 1939 27 0 1942 0 21 1945 0 0 1948 27 27 1951 9 0 1954 0 27 1957 0 0 1960 21 0 1966 0 0 1972 0 0 1969 0 21 1984 27 27 1975 0 0 1978 0 27 1981 0 0 1984 10 21 1987 0 21 2002 27 27 1993 0 0 1996 0 27 1999 0 0 2002 0 0 88 21 21 2008 27 0 2011 0 21 2014 0 0 2017 27 27 2020 0 0 2023 0 27 2026 0 0 2029 21 0 2035 0 0 2038 0 0 2050 27 27 2041 9 0 2044 0 27 2047 0 0 2050 9 21 2053 21 0 2059 0 0 2062 0 0 2074 27 27 2065 9 0 2068 0 27 2071 0 0 2074 0 0 88 2092 2092 2080 49 0 2083 0 2092 2086 0 0 2089 21 21 2092 0 0 2095 0 21 2098 0 0 2101 9 49 2104 27 21 2107 27 27 2110 0 0 2113 0 27 2116 0 0 2119 21 0 2125 0 0 2128 0 0 2140 27 27 2131 9 0 2134 0 27 2137 0 0 2140 0 0 88 2158 2158 2146 49 0 2149 0 2158 2152 0 0 2155 21 21 2158 0 0 2161 0 21 2164 0 0 2167 9 49 2170 27 21 2173 27 27 2176 0 0 2179 0 27 2182 0 0 2185 0 21 2200 27 27 2191 9 0 2194 0 27 2197 0 0 2200 0 0 88 27 0 2206 0 27 2209 0 0 2212 0 0 88 21 21 2218 12 0 2221 0 21 2224 0 0 2227 22 22 2230 10 21 2233 21 0 2239 0 0 2245 0 0 2242 0 21 2350 22 0 2248 0 22 2251 0 0 2254 26 26 2257 27 0 2260 0 26 2263 0 0 2266 24 24 2269 0 0 2272 0 24 2275 0 0 2278 26 0 2284 0 0 2287 0 0 2299 24 24 2290 9 0 2293 0 24 2296 0 0 2299 9 26 2302 26 0 2308 0 0 2311 0 0 2323 24 24 2314 9 0 2317 0 24 2320 0 0 2323 24 0 2329 0 0 2335 0 0 2332 0 24 2338 9 22 2338 27 0 2341 0 27 2344 0 0 2347 0 0 2230 27 27 2353 22 0 2356 0 27 2359 0 0 2362 0 0 88 21 21 2368 12 0 2371 0 21 2374 0 0 2377 27 21 2380 2395 2395 2383 49 0 2386 0 2395 2389 0 0 2392 27 27 2395 0 0 2398 0 27 2401 0 0 2404 9 49 2407 22 22 2410 21 0 2416 0 0 2422 0 0 2419 0 21 2530 22 0 2425 0 22 2428 0 0 2431 26 26 2434 27 0 2437 0 26 2440 0 0 2443 24 24 2446 0 0 2449 0 24 2452 0 0 2455 26 0 2461 0 0 2464 0 0 2476 24 24 2467 9 0 2470 0 24 2473 0 0 2476 9 26 2479 26 0 2485 0 0 2488 0 0 2500 24 24 2491 9 0 2494 0 24 2497 0 0 2500 24 0 2506 0 0 2512 0 0 2509 0 24 2515 9 22 2515 27 0 2518 0 27 2521 0 0 2524 10 21 2527 0 0 2410 27 27 2533 22 0 2536 0 27 2539 0 0 2542 0 0 88 21 21 2548 12 0 2551 0 21 2554 0 0 2557 22 22 2560 2575 2575 2563 49 0 2566 0 2575 2569 0 0 2572 23 23 2575 0 0 2578 0 23 2581 0 0 2584 9 49 2587 21 0 2593 0 0 2599 0 0 2596 0 21 2794 22 0 2602 0 22 2605 0 0 2608 26 26 2611 27 0 2614 0 26 2617 0 0 2620 24 24 2623 0 0 2626 0 24 2629 0 0 2632 26 0 2638 0 0 2641 0 0 2653 24 24 2644 9 0 2647 0 24 2650 0 0 2653 9 26 2656 26 0 2662 0 0 2665 0 0 2677 24 24 2668 9 0 2671 0 24 2674 0 0 2677 26 26 2680 23 0 2683 0 26 2686 0 0 2689 25 25 2692 0 0 2695 0 25 2698 0 0 2701 26 0 2707 0 0 2710 0 0 2722 25 25 2713 9 0 2716 0 25 2719 0 0 2722 9 26 2725 26 0 2731 0 0 2734 0 0 2746 25 25 2737 9 0 2740 0 25 2743 0 0 2746 24 0 2749 0 25 2752 0 0 2755 25 0 2761 0 0 2767 0 0 2764 0 25 2770 9 22 2770 23 0 2773 0 23 2776 0 0 2779 27 0 2782 0 27 2785 0 0 2788 10 21 2791 0 0 2587 27 27 2797 22 0 2800 0 27 2803 0 0 2806 0 0 88 21 21 2812 12 0 2815 0 21 2818 0 0 2821 22 22 2824 2839 2839 2827 49 0 2830 0 2839 2833 0 0 2836 23 23 2839 0 0 2842 0 23 2845 0 0 2848 9 49 2851 21 0 2857 0 0 2863 0 0 2860 0 21 3091 22 0 2866 0 22 2869 0 0 2872 26 26 2875 27 0 2878 0 26 2881 0 0 2884 24 24 2887 0 0 2890 0 24 2893 0 0 2896 26 0 2902 0 0 2905 0 0 2917 24 24 2908 9 0 2911 0 24 2914 0 0 2917 9 26 2920 26 0 2926 0 0 2929 0 0 2941 24 24 2932 9 0 2935 0 24 2938 0 0 2941 26 26 2944 23 0 2947 0 26 2950 0 0 2953 25 25 2956 0 0 2959 0 25 2962 0 0 2965 26 0 2971 0 0 2974 0 0 2986 25 25 2977 9 0 2980 0 25 2983 0 0 2986 9 26 2989 26 0 2995 0 0 2998 0 0 3010 25 25 3001 9 0 3004 0 25 3007 0 0 3010 24 0 3013 0 25 3016 0 0 3019 9 25 3022 24 24 3025 10 0 3028 0 24 3031 0 0 3034 25 0 3040 0 0 3046 0 0 3043 0 25 3058 24 24 3049 0 0 3052 0 24 3055 0 0 3058 24 0 3061 0 22 3064 0 0 3067 23 0 3070 0 23 3073 0 0 3076 27 0 3079 0 27 3082 0 0 3085 10 21 3088 0 0 2851 27 27 3094 22 0 3097 0 27 3100 0 0 3103 0 0 88 21 21 3109 12 0 3112 0 21 3115 0 0 3118 22 22 3121 3136 3136 3124 49 0 3127 0 3136 3130 0 0 3133 23 23 3136 0 0 3139 0 23 3142 0 0 3145 9 49 3148 21 0 3154 0 0 3160 0 0 3157 0 21 3394 22 0 3163 0 22 3166 0 0 3169 26 26 3172 27 0 3175 0 26 3178 0 0 3181 24 24 3184 0 0 3187 0 24 3190 0 0 3193 26 0 3199 0 0 3202 0 0 3214 24 24 3205 9 0 3208 0 24 3211 0 0 3214 9 26 3217 26 0 3223 0 0 3226 0 0 3238 24 24 3229 9 0 3232 0 24 3235 0 0 3238 26 26 3241 23 0 3244 0 26 3247 0 0 3250 25 25 3253 0 0 3256 0 25 3259 0 0 3262 26 0 3268 0 0 3271 0 0 3283 25 25 3274 9 0 3277 0 25 3280 0 0 3283 9 26 3286 26 0 3292 0 0 3295 0 0 3307 25 25 3298 9 0 3301 0 25 3304 0 0 3307 24 0 3310 0 25 3313 0 0 3316 11 0 3319 0 25 3322 0 0 3325 24 24 3328 10 0 3331 0 24 3334 0 0 3337 25 0 3343 0 0 3349 0 0 3346 0 25 3361 24 24 3352 0 0 3355 0 24 3358 0 0 3361 24 0 3364 0 22 3367 0 0 3370 23 0 3373 0 23 3376 0 0 3379 27 0 3382 0 27 3385 0 0 3388 10 21 3391 0 0 3148 27 27 3397 22 0 3400 0 27 3403 0 0 3406 0 0 88 439 0 1015 439 1 1015 439 -1 1015 0 12546 43 244 1015 6836 12546 45 238 1015 6846 11009 1090 1015 6856 11521 1045 1015 6864 26886 30318 29285 116 250 1015 6872 25091 25977 232 1015 6886 25603 28789 607 1015 6896 25604 28530 112 751 1015 6906 28420 25974 114 661 1015 6918 29444 24951 112 520 1015 6930 29190 26739 26217 116 2365 1015 0 23299 23872 274 1015 6956 23299 23841 301 1015 6966 27651 25203 1540 1015 6942 29443 16496 1213 1015 6986 29443 8560 1282 1015 6996 12290 62 1894 1015 7006 12290 61 1936 1015 7016 12290 60 2005 1015 7026 15361 2077 1015 7036 15873 2143 1015 7044 12802 47 2215 1015 7052 28418 114 2545 1015 7062 30723 29295 2809 1015 7072 24835 25710 3106 1015 7082 10753 943 1015 7092 28163 28783 1015 7100 15364 27503 62 439 36 1015 6976 15366 28005 29801 62 439 32 1015 7122 15365 25963 15993 439 30 1015 7138 15369 26988 25972 24946 15980 439 34 1015 7152 15366 28515 25708 62 439 28 1015 7170 15366 25445 28520 62 439 38 1015 7108 25351 29301 25970 29806 439 88 1015 7202 29192 28527 11636 28534 99 439 92 1015 7218 8965 28534 29539 439 8 1015 7236 25351 28271 25972 29816 439 72 1015 7250 26628 29285 101 439 4 274 1015 7266 25092 29537 101 439 60 1015 7282 25603 27760 439 62 1015 7296 26627 25708 439 58 1015 7308 25090 108 439 32 1015 7320 15875 28265 439 64 1015 7332 26627 30821 439 16 439 30 301 1015 7344 25607 25445 28009 27745 439 10 439 30 301 1015 7362 29446 30063 25458 101 439 32256 439 35 274 1015 7186 27908 28257 121 3409 439 32 301 1015 7384 29445 24948 25972 439 56 1015 7424 23809 3415 439 28 301 1015 7438 23361 3409 439 28 301 1015 7452 28163 28777 520 751 1015 7466 29700 25461 107 520 661 1015 7478 16132 30052 112 607 1744 3754 607 1015 7492 29187 29807 781 520 862 520 1015 7510 11524 28530 116 3758 3758 1015 7526 12805 29284 28783 751 751 1015 7540 12804 30052 112 661 661 1015 7554 12291 15676 1894 1936 1015 7568 12291 15932 1936 1936 1015 7580 15617 1045 1936 1015 7592 15362 62 3798 1936 1015 7602 15874 61 2077 1936 1015 7614 15362 61 2143 1936 1015 7626 12291 15678 2005 1936 1015 7638 28166 26469 29793 101 238 250 1015 7650 29443 25662 607 2005 1015 7666 24835 29538 3836 1744 3846 3830 1015 7678 12802 42 2203 1015 7694 25348 27749 108 439 2 1015 7704 25349 27749 11116 3856 1090 1015 7718 25349 27749 29548 2203 1015 7732 29954 60 3781 2005 1936 520 2005 1936 3804 781 2077 862 3804 1015 7744 29954 62 520 3875 1015 7774 29955 15678 3875 1936 1015 7786 29955 15676 3890 1936 1015 7798 25863 25976 30051 25972 2215 781 1015 7810 27396 31077 63 3415 274 3830 3836 1744 3935 439 3 274 439 8 3106 1744 3932 232 751 3409 1015 3415 1015 7826 27395 31077 439 15 274 3910 1744 3940 1015 7874 25860 26989 116 439 16 274 3910 1015 7894 25346 114 439 13 3951 439 10 3951 1015 7912 16385 2215 274 1015 7932 8449 2215 301 1015 7942 26379 29797 25389 29301 25970 29806 3606 3968 1015 7952 29451 29797 25389 29301 25970 29806 3606 3973 1015 7406 27652 29537 116 3983 3968 1015 7972 28676 25449 107 1213 1090 274 1015 8006 11010 33 2215 3743 274 1090 520 301 1015 8022 27654 26739 26217 116 3750 1744 4035 238 520 3850 520 1717 4026 1015 8042 25346 64 607 3968 520 1540 1744 4050 439 8 2365 1717 4053 439 255 3106 1015 8072 25346 33 520 439 255 3106 607 439 8 4026 2545 520 3743 607 3968 520 1540 1936 439 255 2809 781 661 2809 862 3106 2809 520 3973 1015 8108 27907 30817 3781 2077 1744 4095 3736 1717 4096 751 1015 8170 27907 28265 3781 2143 1744 4107 3736 1717 4108 751 1015 8194 25349 30063 29806 607 244 520 4039 1015 7992 27655 26479 25449 27745 3793 1744 4129 3412 1717 4130 3409 1015 8218 24839 26988 28263 25701 607 1540 4123 1090 1015 8262 24837 26988 28263 3637 4136 439 4 301 1015 8282 11015 29811 26994 26478 3412 661 4100 3758 661 1090 3758 3758 1045 1015 8302 29700 28793 101 607 1744 4180 520 4113 3951 520 238 1717 4170 3774 1015 8332 25349 28525 25974 781 1717 4197 781 607 4039 1129 4057 244 862 244 1405 4189 3774 1015 8364 26116 27753 108 520 781 520 1717 4213 3781 4057 244 1405 4210 3774 1015 8402 25861 24946 25971 3409 4205 1015 8236 25603 9327 862 862 3850 607 4113 1090 4136 2215 781 520 781 1015 8448 10243 10532 4227 1015 8478 11778 36 4227 4113 4170 1015 8434 29445 24944 25955 3663 3951 1015 8502 25349 29793 26723 1213 781 439 33 274 781 1297 439 33 301 3910 862 439 33 301 1207 3409 1015 8516 29701 29288 30575 3750 1744 4301 439 33 274 1363 862 439 33 301 862 520 781 1282 751 862 1015 8560 24837 28514 29810 3415 4284 1015 8488 10247 25185 29295 10612 4227 520 1744 4321 4113 4170 4306 751 1015 8604 29955 11117 3781 1090 781 1129 3409 3810 781 3781 3106 2005 862 2545 781 2545 2005 862 3106 250 244 862 520 1015 8646 25607 25966 24935 25972 250 781 250 3412 4326 862 1090 1015 8696 25602 43 781 520 781 4326 862 1090 862 1090 1015 8722 29955 10861 3409 520 439 15 781 607 4326 781 781 607 4326 862 1090 862 1744 4397 781 661 4326 862 1090 1405 4381 3758 751 1015 8746 29958 12141 28525 100 3750 1936 1744 4414 439 -10 4284 3781 3875 1744 4457 3830 439 15 781 781 607 4326 781 781 607 4326 862 1090 607 862 1129 520 781 4326 862 3793 520 3793 1090 1744 4450 781 751 244 862 1717 4451 751 862 1405 4422 751 520 1015 3774 751 3415 607 1015 8804 27909 27951 25711 3836 607 781 1744 4475 3830 781 4353 862 781 3836 1744 4481 1129 1090 862 4407 862 1744 4490 520 3830 520 1015 1015 8924 12036 28525 100 661 2005 520 4466 1015 8982 27907 25711 4495 751 1015 9000 12033 4495 3736 1015 8618 25605 28773 26740 439 48 274 1213 1045 238 1015 9022 10246 28005 29801 41 406 1015 9012 25860 26723 111 439 19 274 3910 1015 9044 29699 28769 607 4533 661 4057 244 1015 9076 27396 24948 112 607 607 439 13 3804 781 439 10 3804 862 3106 1744 4596 607 439 8 3804 781 439 127 3804 862 3106 1744 4579 3663 4541 1015 781 661 1129 2077 607 1744 4593 439 8 607 4533 3663 4533 4533 862 1090 1015 751 3736 607 1015 9058 24838 25443 28773 116 661 1090 661 3781 3804 1744 4627 3940 607 3663 1045 439 95 3875 1744 4624 4541 1717 4625 4551 1717 4608 751 661 1045 1015 9200 28933 25973 31090 439 32256 439 256 4605 439 70 3973 751 3409 3669 3973 1015 9094 16134 25956 29808 104 4515 2143 1744 4660 439 -4 4284 1015 9262 11529 29300 26977 26988 26478 781 1717 4681 3663 661 1129 1090 4039 2077 1744 4681 862 244 1015 1405 4670 3409 1015 9296 27652 28527 107 520 781 3758 3758 607 1744 4716 661 4039 1129 1045 1129 3663 3798 439 4 4007 3910 1744 4713 1207 3758 751 1015 4156 1717 4693 1207 3758 751 1015 9370 29959 28014 29793 26723 1744 4729 1894 1015 3793 1015 9440 27909 29793 26723 4725 250 1015 9322 28677 29281 25971 781 3697 751 3669 3968 1090 439 70 3968 3669 3968 1045 1129 781 661 862 520 781 781 1129 439 9450 4689 3781 862 439 9470 4689 520 862 1045 781 1045 862 244 3669 4014 862 3663 3798 1744 4785 4667 3409 4088 1015 9476 29446 24944 25955 115 607 1894 1744 4801 4255 238 1717 4793 751 1015 9576 26628 27759 100 3415 3657 4014 3657 3968 4057 1015 9606 8962 62 3774 3657 3968 439 32512 661 1045 1015 9462 25863 29816 24946 29795 607 781 4407 862 520 781 4407 862 3758 1015 9650 25605 26473 29801 439 9 661 2077 439 7 3106 1090 439 48 1090 1015 9628 8961 439 2 4653 3409 3645 3968 4830 4844 4807 1015 9712 8962 115 4858 3781 2545 1936 1744 4871 1015 9736 15362 35 439 32512 3657 3973 1015 9756 29444 26473 110 2005 1744 4896 439 45 4807 1015 9772 29955 29230 781 3409 4881 4871 4817 862 661 1045 4793 4170 1015 9794 29954 46 3409 4881 4871 4817 4255 4170 1015 9822 11777 607 781 3842 3409 4881 4871 862 4890 4817 4255 4170 1015 9842 15879 30062 25197 29285 3781 781 781 751 4039 3645 3968 781 439 48 1045 439 9 661 2077 1744 4965 439 7 1045 607 439 10 2077 2545 607 862 3875 1936 1744 4975 751 862 862 1015 520 3645 3968 4376 751 3758 3645 3968 4376 4364 862 862 4156 607 1936 1744 4940 1015 9870 28167 28021 25954 16242 3415 3651 3973 3645 3968 781 661 4039 439 45 3798 607 781 1744 5014 4156 661 4039 439 36 3798 1744 5023 3675 4156 781 781 3409 607 862 862 4940 607 1744 5058 661 4039 439 46 3804 1744 5050 3758 751 3758 862 3774 3409 862 3645 3973 1015 238 3651 3973 244 3651 3968 1717 5029 3774 862 1744 5063 4353 862 3645 3973 3415 1015 9986 25351 28015 24944 25970 3758 661 1045 3750 1744 5084 781 3774 862 3736 1015 781 1717 5099 4113 3758 4113 3758 1045 3750 1744 5099 1207 3736 3736 1015 1405 5087 3774 3409 1015 10136 11778 115 4515 781 1717 5114 1129 4007 4923 1405 5111 1015 10208 28163 24934 3863 1015 10234 25347 24934 5120 607 4039 439 31 3106 1090 3863 3856 3830 3106 1015 10244 24837 27756 29807 4136 439 8 4014 1015 10274 11265 4145 3637 3973 3856 5141 1015 9680 10257 25971 29281 26723 30509 29295 27748 29545 10612 520 781 607 607 1744 5200 607 5120 4113 439 159 3106 1129 4113 5073 1936 1744 5195 1207 607 5120 439 64 520 3968 3106 3793 3412 2545 3830 1015 3736 607 3968 1717 5167 1207 3774 3409 1015 10308 10246 26982 25710 41 781 3630 607 3968 1744 5233 607 3968 3968 1129 520 5164 3750 1744 5230 781 3758 751 862 1207 1015 3863 1717 5211 751 3409 862 3409 1015 10292 29455 24933 25458 11624 28535 25714 26988 29811 5164 3758 751 1015 10476 26116 28265 100 5209 3758 751 1015 10408 10249 26988 25972 24946 10604 3716 3968 1744 5273 439 439 5148 5148 1015 10502 27719 29801 29285 27745 3582 3968 3910 1015 10548 25352 28015 26992 25964 44 2215 4145 5148 1015 10518 16134 28518 28277 100 1744 5301 1015 4255 4113 4170 439 63 3951 3959 439 -13 4284 1015 10566 26889 29806 29285 29296 29797 5255 3750 1744 5350 3716 3968 1744 5335 1894 1744 5332 5125 3910 1015 5125 5289 1015 751 607 5120 4039 439 32 3106 1744 5347 439 -14 4284 5125 3910 1015 607 781 4113 4998 1744 5373 1207 3651 3968 2005 1744 5365 751 1717 5371 3716 3968 1744 5370 520 5279 5279 1015 862 3409 5298 1015 10586 11779 25705 5120 4113 439 31 3106 4170 4255 1015 10624 26377 29797 28461 25714 29285 3630 3409 781 607 3968 1129 2809 1744 5406 3863 1717 5397 1207 607 3856 1045 520 3630 1045 2215 607 781 238 3836 1744 5423 439 -80 4284 781 1717 5431 607 3968 520 3856 1045 1405 5426 3968 862 1015 0 29449 29797 28461 25714 29285 607 3415 3798 1744 5452 751 3615 3412 5442 1015 607 3622 2143 1744 5460 439 -73 4284 3630 520 781 1717 5468 3743 3973 3863 1405 5465 3409 520 3973 1015 10872 26126 29295 26740 30509 29295 27748 29545 116 439 90 1015 10948 29446 29561 25972 109 439 94 1015 10972 26117 29295 26740 3615 5483 439 2 5442 1015 10988 28420 27758 121 3415 5442 1015 11008 30469 29295 29540 5394 3750 1744 5548 520 607 3959 4914 4247 14850 32 3968 3750 1744 5544 607 5120 4039 439 128 3106 1936 1744 5541 607 5380 3968 1717 5527 3959 238 1717 5516 1015 10776 25611 26213 28265 29801 28521 29550 3630 3968 3993 1015 11098 10247 29295 25956 10610 607 1744 5582 238 520 781 5565 661 1129 2809 1744 5581 244 862 3767 1015 1207 1015 11120 11526 29295 25956 114 5394 5565 3736 5442 1015 11166 11014 29295 25956 114 607 781 5588 5394 862 520 244 5442 1015 11186 30468 29295 100 4742 3637 607 781 3781 3973 244 520 4186 862 1015 10754 16135 28277 29033 25973 607 3983 5164 1936 1744 5634 1015 4255 3774 439 68 3968 5380 4247 29193 25701 26213 28265 25701 3959 1015 11244 16132 30062 108 607 4039 1744 5657 1015 439 -16 4284 1015 11214 25348 24936 114 3663 5611 5652 4113 751 4039 1015 11322 23366 26723 29281 93 5665 439 439 5148 5148 1015 11344 15201 439 -17730 3804 1744 5693 439 -22 4284 439 1015 5148 3728 3750 1744 5703 3983 3973 1015 1015 11366 14849 4145 3637 607 439 68 3973 4000 5148 3663 5611 5652 5627 4113 1090 439 8 3973 4145 439 -17730 3721 1015 11408 14855 28526 24942 25965 3637 439 -17730 3721 1015 11456 25189 26469 28265 4145 3637 1015 11476 30053 29806 27753 439 1744 5148 2215 5148 1015 11490 24933 24935 28265 439 1717 5148 2215 5148 1015 11510 26978 102 439 1744 5148 3637 3409 5148 1015 11530 29796 25960 110 3637 2215 520 3973 1015 11550 30565 26984 25964 5768 1015 11568 29286 28773 24933 116 520 5759 5779 1015 11580 25956 29548 101 439 1717 5148 3637 3409 5148 520 5779 1015 11598 26211 29295 439 781 5148 3637 1015 11624 24931 29798 751 439 1717 5148 3637 3409 5148 4145 3637 520 1015 11640 28260 30821 116 439 1405 5148 2215 5148 1015 11668 10049 3663 5611 5255 5298 5125 5279 1015 11688 25383 28015 26992 25964 862 607 274 5148 244 781 1015 11706 29287 25445 29301 25971 439 68 3968 5125 5289 1015 11296 29702 26479 27751 101 3743 3968 2809 520 3973 1015 11752 26628 25705 101 3663 5611 5255 5298 5120 439 128 520 5881 1015 11774 10245 24950 10610 862 3850 1015 11802 10247 28515 29550 10612 862 274 1015 11816 10248 24941 27506 29285 41 862 3850 607 3968 439 8 3973 3863 3968 3983 3973 1015 11730 25350 25970 29793 101 5706 751 3728 5858 5905 3983 3973 1015 11868 30216 29281 24937 27746 101 5939 3409 5148 1015 11894 25352 28271 29811 28257 116 5939 3856 3830 5141 5858 5913 5148 1015 11914 27910 29281 25963 114 4000 3637 5939 3856 3830 5141 5858 5922 5148 5148 1015 11942 15909 28514 31076 3863 1015 11832 10246 28516 29541 41 862 862 3850 520 781 1015 11986 10246 28515 28781 41 862 439 68 3968 5125 3973 1015 11974 25701 25967 15987 5858 6009 5858 5998 1015 12032 29283 8560 5858 1363 1015 12050 29283 16496 5858 1297 1015 12062 15970 114 5858 781 1015 12074 29282 62 5858 862 1015 12086 29282 64 5858 1129 1015 12098 29285 29284 28783 5858 1207 1015 12110 25956 27000 116 5858 1015 1015 12124 11874 34 5858 4247 439 34 5611 4113 1090 439 4 301 4145 1015 12138 9314 34 5858 4242 439 34 5611 4113 1090 439 4 301 4145 1015 12168 24934 28514 29810 34 5858 4314 439 34 5611 4113 1090 439 4 301 4145 1015 12198 10305 439 41 4742 3774 1015 12232 11842 40 439 41 4742 4170 1015 12246 28744 29551 28788 28271 101 3663 5611 5255 5298 5125 5289 1015 12262 10561 1015 12288 23617 3697 751 3968 439 32 301 1015 12294 26889 28013 25701 24937 25972 4000 5120 3968 439 64 2545 4000 5120 3973 1015 12312 29443 25957 3663 5611 5255 5298 3959 607 3968 439 1015 3804 1744 6193 607 3968 4914 3863 1717 6180 3968 4914 1015 12344 25604 28021 112 4136 3750 1744 6214 520 607 3968 4923 3863 520 3856 1045 1717 6201 751 1015 12008 25349 29547 28021 4136 607 439 -16162 1045 781 3750 1744 6241 520 607 3968 862 1090 781 3863 520 3856 1045 1717 6226 751 862 1015 12432 28418 107 3716 3968 1936 1744 6256 4247 8195 27503 3959 1015 12392 25860 24950 108 3663 5611 607 4039 1744 6272 5318 3412 4653 1717 6261 751 439 18 274 3910 1015 12488 26884 26222 111 3959 4247 20501 28530 25962 29795 8250 18021 29295 26740 30240 11825 8245 3959 4247 16667 29813 28520 14962 8224 26962 26723 29281 8292 24906 25965 8307 28488 25975 3959 4247 17694 24941 27753 8250 8224 28520 25975 29230 27182 14382 16441 28007 26977 11884 28515 109 3959 4247 21033 28773 14959 8224 8224 29800 28788 14963 12079 26983 26740 25205 25390 28015 26671 30575 29285 12138 30067 27746 29029 3959 4247 19494 25449 28261 25971 8250 26708 8293 28245 26988 25955 29550 8293 8239 30032 27746 25449 17440 28015 26977 110 3959 1015 12556 26883 26990 5508 5498 5556 3686 3728 3409 439 32 301 3415 439 31 301 1015 12752 28420 29808 115 439 3 274 1540 1744 6408 439 6914 439 19 301 439 3 274 439 4 3106 1744 6417 6282 439 3 274 439 2 3106 1744 6457 439 5 274 3850 607 3637 520 1045 6220 439 6 274 3804 1744 6448 4247 25354 29547 28021 26144 26977 108 232 439 3 274 439 2 2809 439 3 301 1015 12514 28932 26997 116 6379 6397 4635 439 12522 4262 3750 1744 6484 607 4255 4923 439 63 3951 3959 3415 3798 1744 6483 232 6379 1717 6464 1015 12916 25348 27759 100 439 14 274 3910 1015

[wal-phisics]

Representación de la indeterminación   CERO ELEVADO A CERO. #matematicas #fisica #2021

[wal-phisics]

league of SI superheroes curves - CANDELA

x(t) = ((-1/74 sin(35/23 - 34 t) - 1/38 sin(10/7 - 31 t) - 1/38 sin(22/15 - 30 t) - 1/43 sin(13/9 - 28 t) - 1/88 sin(13/9 - 27 t) - 1/41 sin(11/8 - 23 t) - 1/11 sin(23/15 - 22 t) - 1/9 sin(14/9 - 18 t) - 2/5 sin(17/11 - 14 t) - 1/3 sin(23/15 - 10 t) - 3/10 sin(26/17 - 7 t) - 93/46 sin(14/9 - 6 t) - 463/29 sin(11/7 - 2 t) + 33/13 sin(t + 11/7) + 7/10 sin(3 t + 20/13) + 18/11 sin(4 t + 8/5) + 4/11 sin(5 t + 3/2) + 2/9 sin(8 t + 13/8) + 2/5 sin(9 t + 8/5) + 3/11 sin(11 t + 8/5) + 1/6 sin(12 t + 17/10) + 4/13 sin(13 t + 8/5) + 1/73 sin(15 t + 1/14) + 1/28 sin(16 t + 17/9) + 1/5 sin(17 t + 13/8) + 1/19 sin(19 t + 19/12) + 1/8 sin(21 t + 28/17) + 1/14 sin(24 t + 19/11) + 1/11 sin(25 t + 5/3) + 1/63 sin(26 t + 13/7) + 1/25 sin(29 t + 27/16) + 1/68 sin(32 t + 23/13) + 1/37 sin(33 t + 21/13) - 37/9) θ(91 π - t) θ(t - 87 π) + (-1/40 sin(26/17 - 16 t) - 1/14 sin(17/11 - 13 t) - 1/35 sin(23/15 - 11 t) - 1/10 sin(14/9 - 10 t) - 1/39 sin(17/11 - 8 t) - 1/54 sin(29/19 - 6 t) - 3/10 sin(14/9 - 5 t) - 4/9 sin(11/7 - 3 t) - 38/15 sin(11/7 - 2 t) + 48/11 sin(t + 11/7) + 5/6 sin(4 t + 11/7) + 3/13 sin(7 t + 19/12) + 1/25 sin(12 t + 8/5) + 1/27 sin(15 t + 21/13) + 933/5) θ(87 π - t) θ(t - 83 π) + (-1/70 sin(28/19 - 9 t) + 55/13 sin(t + 11/7) + 4 sin(2 t + 11/7) + 11/9 sin(3 t + 11/7) + 3/4 sin(4 t + 11/7) + 1/5 sin(5 t + 11/7) + 5/13 sin(6 t + 11/7) + 3/10 sin(7 t + 19/12) + 2/9 sin(8 t + 11/7) + 1/48 sin(10 t + 20/13) + 1/18 sin(11 t + 19/12) + 1/10 sin(12 t + 19/12) + 1/21 sin(13 t + 19/12) + 481/8) θ(83 π - t) θ(t - 79 π) + (94/17 sin(t + 11/7) + 9/14 sin(2 t + 19/12) + 3/10 sin(3 t + 19/12) + 2/9 sin(4 t + 19/12) - 617/13) θ(79 π - t) θ(t - 75 π) + (-1/16 sin(11/7 - 7 t) + 19/9 sin(t + 33/7) + 4/3 sin(2 t + 11/7) + 5/12 sin(3 t + 11/7) + 2/5 sin(4 t + 11/7) + 1/30 sin(5 t + 47/10) + 1/96 sin(6 t + 8/5) + 1/16 sin(8 t + 11/7) + 1/26 sin(9 t + 19/12) + 1/14 sin(10 t + 11/7) - 1376/17) θ(75 π - t) θ(t - 71 π) + (-1/12 sin(14/9 - 12 t) - 7/3 sin(11/7 - 2 t) - 109/36 sin(11/7 - t) + 15/16 sin(3 t + 11/7) + 1/6 sin(4 t + 33/7) + 2/11 sin(5 t + 11/7) + 1/13 sin(6 t + 19/12) + 1/7 sin(7 t + 11/7) + 1/38 sin(8 t + 33/7) + 1/47 sin(9 t + 11/7) + 1/20 sin(10 t + 33/7) + 1/39 sin(11 t + 17/11) - 667/9) θ(71 π - t) θ(t - 67 π) + (-7/12 sin(3/2 - 11 t) - 1/9 sin(17/11 - 9 t) - 7/11 sin(14/9 - 8 t) - 17/7 sin(11/7 - 5 t) - 47/7 sin(11/7 - t) + 3 sin(2 t + 19/12) + 3 sin(3 t + 8/5) + 19/6 sin(4 t + 8/5) + 1/5 sin(6 t + 4/3) + 1/10 sin(7 t + 11/8) + 1/8 sin(10 t + 13/10) + 1/7 sin(12 t + 8/5) - 607/7) θ(67 π - t) θ(t - 63 π) + (-2/9 sin(17/11 - 4 t) - 7/6 sin(11/7 - 3 t) - 28/19 sin(11/7 - 2 t) + 262/87 sin(t + 11/7) + 7/11 sin(6 t + 19/12) - 232/3) θ(63 π - t) θ(t - 59 π) + (261/8 sin(t + 11/7) + 191/9 sin(2 t + 11/7) + 29/11 sin(3 t + 8/5) + 69/14 sin(4 t + 19/12) + 6/17 sin(5 t + 18/11) + 1/7 sin(6 t + 47/10) + 8/5 sin(7 t + 8/5) + 7/10 sin(8 t + 18/11) + 24/25 sin(9 t + 8/5) + 6/17 sin(10 t + 33/7) + 7/11 sin(11 t + 13/8) + 1/4 sin(12 t + 8/5) + 1/10 sin(13 t + 13/8) + 3/7 sin(14 t + 13/8) + 1/8 sin(15 t + 17/10) + 1/10 sin(16 t + 8/5) + 1/15 sin(17 t + 13/8) + 3/11 sin(18 t + 5/3) + 1/8 sin(19 t + 22/13) + 1/36 sin(20 t + 27/16) + 1/62 sin(21 t + 15/8) - 663/8) θ(59 π - t) θ(t - 55 π) + (-1/7 sin(6/13 - 15 t) - 2/13 sin(13/14 - 14 t) - 1/2 sin(5/9 - 12 t) - 7/11 sin(8/9 - 9 t) - 18/7 sin(28/19 - 6 t) + 153/13 sin(t + 19/9) + 7/9 sin(2 t + 25/14) + 36/7 sin(3 t + 8/5) + 2/9 sin(4 t + 76/17) + 27/13 sin(5 t + 9/8) + 6/7 sin(7 t + 51/11) + 7/11 sin(8 t + 75/19) + 2/7 sin(10 t + 5/14) + 5/7 sin(11 t + 6/7) + 3/8 sin(13 t + 17/8) + 6/11 sin(16 t + 26/7) + 2/7 sin(17 t + 7/4) + 1211/9) θ(55 π - t) θ(t - 51 π) + (-3/8 sin(1/3 - 24 t) - 3/5 sin(49/50 - 23 t) - 11/9 sin(4/5 - 13 t) - 53/35 sin(1/20 - 12 t) - 178/11 sin(1/10 - 3 t) + 424/7 sin(t + 2/5) + 179/6 sin(2 t + 47/10) + 23/6 sin(4 t + 10/13) + 33/13 sin(5 t + 15/8) + 53/15 sin(6 t + 11/9) + 2 sin(7 t + 40/13) + 35/18 sin(8 t + 65/14) + 23/17 sin(9 t + 37/13) + 14/15 sin(10 t + 22/13) + 7/9 sin(11 t + 26/7) + 23/24 sin(14 t + 10/7) + 5/9 sin(15 t + 10/3) + 1/2 sin(16 t + 7/6) + 2/7 sin(17 t + 13/12) + 1/3 sin(18 t + 16/9) + 9/10 sin(19 t + 37/10) + 2/11 sin(20 t + 22/9) + 1/4 sin(21 t + 13/5) + 1/2 sin(22 t + 6/7) + 3/8 sin(25 t + 33/8) + 341/7) θ(51 π - t) θ(t - 47 π) + (-1/17 sin(7/5 - 28 t) - 1/12 sin(94/93 - 27 t) - 1/9 sin(6/7 - 25 t) - 1/7 sin(17/14 - 15 t) - 1/8 sin(5/4 - 12 t) - 1/4 sin(1/4 - 11 t) - 2/7 sin(11/13 - 9 t) + 145/8 sin(t + 14/13) + 9/4 sin(2 t + 16/5) + 20/9 sin(3 t + 15/7) + 7/5 sin(4 t + 10/7) + 9/14 sin(5 t + 10/11) + 3/8 sin(6 t + 7/11) + 1/2 sin(7 t + 5/3) + 4/7 sin(8 t + 5/14) + 1/11 sin(10 t + 53/16) + 3/13 sin(13 t + 33/8) + 1/5 sin(14 t + 27/10) + 1/4 sin(16 t + 42/13) + 1/7 sin(17 t + 5/3) + 1/6 sin(18 t + 36/13) + 1/7 sin(19 t + 12/7) + 1/9 sin(20 t + 46/15) + 2/13 sin(21 t + 10/7) + 1/7 sin(22 t + 4/7) + 1/15 sin(23 t + 11/5) + 1/12 sin(24 t + 13/8) + 1/13 sin(26 t + 40/9) + 1/11 sin(29 t + 33/7) + 233/4) θ(47 π - t) θ(t - 43 π) + (-1/7 sin(2/3 - 23 t) - 2/9 sin(17/12 - 22 t) - 3/11 sin(1/16 - 21 t) - 1/4 sin(4/3 - 15 t) - 13/25 sin(1/34 - 13 t) - 123/7 sin(5/6 - 2 t) + 421/9 sin(t + 24/7) + 13/7 sin(3 t + 20/21) + 50/9 sin(4 t + 35/12) + 11/5 sin(5 t + 18/7) + 43/42 sin(6 t + 7/11) + 5/6 sin(7 t + 4/11) + 25/19 sin(8 t + 33/7) + 1/30 sin(9 t + 36/13) + 19/9 sin(10 t + 10/11) + 5/8 sin(11 t + 3/11) + 1/14 sin(12 t + 7/5) + 8/15 sin(14 t + 9/4) + 1/7 sin(16 t + 2/7) + 4/7 sin(17 t + 1/6) + 4/9 sin(18 t + 23/6) + 2/13 sin(19 t + 1/6) + 1/2 sin(20 t + 9/7) - 26/11) θ(43 π - t) θ(t - 39 π) + (-1/7 sin(2/3 - 34 t) - 1/6 sin(2/7 - 32 t) - 1/3 sin(1/6 - 28 t) - 11/23 sin(13/9 - 13 t) - 91/6 sin(9/7 - 2 t) + 361/7 sin(t + 12/7) + 27/8 sin(3 t + 51/14) + 79/15 sin(4 t + 56/13) + 12/5 sin(5 t + 48/13) + 8/3 sin(6 t + 43/10) + 8/7 sin(7 t + 19/6) + 9/10 sin(8 t + 47/11) + 9/7 sin(9 t + 12/11) + 10/11 sin(10 t + 4/9) + 12/13 sin(11 t + 1/10) + 13/19 sin(12 t + 48/11) + 13/10 sin(14 t + 47/12) + 1/7 sin(15 t + 45/23) + 5/14 sin(16 t + 19/6) + 2/3 sin(17 t + 25/11) + 7/12 sin(18 t + 15/4) + 4/15 sin(19 t + 19/9) + 4/9 sin(20 t + 35/8) + 1/2 sin(21 t + 24/11) + 4/11 sin(22 t + 61/15) + 1/5 sin(23 t + 23/14) + 2/11 sin(24 t + 47/14) + 5/7 sin(25 t + 12/5) + 2/9 sin(26 t + 14/9) + 1/5 sin(27 t + 16/13) + 1/38 sin(29 t + 130/43) + 1/9 sin(30 t + 49/12) + 1/10 sin(31 t + 17/11) + 1/10 sin(33 t + 1) + 503/4) θ(39 π - t) θ(t - 35 π) + (-1/7 sin(1/93 - 28 t) - 5/12 sin(7/9 - 25 t) - 3/5 sin(1 - 24 t) - 3/7 sin(6/7 - 23 t) - 2/3 sin(43/42 - 18 t) - 5/12 sin(1/3 - 11 t) - 33/32 sin(4/11 - 10 t) - 23/10 sin(8/11 - 4 t) + 155/7 sin(t + 29/15) + 47/6 sin(2 t + 11/3) + 21/5 sin(3 t + 10/7) + 10/7 sin(5 t + 10/7) + 3/4 sin(6 t + 16/17) + 3/2 sin(7 t + 11/9) + 5/8 sin(8 t + 111/28) + 15/16 sin(9 t + 10/7) + 8/15 sin(12 t + 39/20) + 11/7 sin(13 t + 14/11) + 1/8 sin(14 t + 49/15) + 1/2 sin(15 t + 29/9) + 3/5 sin(16 t + 11/7) + 11/9 sin(17 t + 2/9) + 8/9 sin(19 t + 110/37) + 12/11 sin(20 t + 13/5) + 5/16 sin(21 t + 13/7) + 4/11 sin(22 t + 76/17) + 2/9 sin(26 t + 23/17) + 9/19 sin(27 t + 7/10) + 1/8 sin(29 t + 53/12) + 2/9 sin(30 t + 21/8) + 3/11 sin(31 t + 13/6) + 1/6 sin(32 t + 24/7) + 3/14 sin(33 t + 30/7) + 1/9 sin(34 t + 17/5) + 1/8 sin(35 t + 1) + 809/4) θ(35 π - t) θ(t - 31 π) + (-1/17 sin(1/5 - 24 t) - 4/11 sin(19/20 - 16 t) - 19/20 sin(14/11 - 14 t) - 2 sin(14/9 - 5 t) - 32/13 sin(13/10 - 4 t) + 514/7 sin(t + 17/8) + 206/9 sin(2 t + 67/17) + 58/5 sin(3 t + 32/13) + 30/7 sin(6 t + 86/19) + 17/10 sin(7 t + 45/17) + 19/20 sin(8 t + 12/11) + 7/4 sin(9 t + 2/3) + 6/7 sin(10 t + 23/5) + 21/16 sin(11 t + 171/85) + 8/17 sin(12 t + 28/17) + 11/13 sin(13 t + 15/14) + 1/5 sin(15 t + 17/5) + 1/9 sin(17 t + 38/9) + 3/10 sin(18 t + 29/7) + 3/7 sin(19 t + 7/5) + 3/10 sin(20 t + 7/9) + 1/6 sin(21 t + 11/10) + 3/10 sin(22 t + 39/10) + 1/12 sin(23 t + 44/15) + 1/5 sin(25 t + 3/8) + 6/19 sin(26 t + 33/8) + 1/7 sin(27 t + 51/13) + 2/5 sin(28 t + 30/7) + 1869/11) θ(31 π - t) θ(t - 27 π) + (-2/9 sin(1/5 - 20 t) - 2/3 sin(1/5 - 11 t) - 7/13 sin(15/11 - 9 t) - 19/6 sin(11/8 - 4 t) - 43/3 sin(7/8 - 3 t) - 19/3 sin(38/37 - t) + 141/8 sin(2 t + 17/5) + 55/8 sin(5 t + 27/8) + 17/6 sin(6 t + 13/9) + 10/9 sin(7 t + 85/42) + 8/5 sin(8 t + 19/10) + 14/9 sin(10 t + 13/9) + 14/11 sin(12 t + 32/9) + 9/11 sin(13 t + 17/6) + 4/5 sin(14 t + 17/9) + 7/9 sin(15 t + 4/5) + 1/7 sin(16 t + 43/16) + 9/14 sin(17 t + 4) + 1/4 sin(18 t + 81/23) + 10/19 sin(19 t + 3/5) + 1/5 sin(21 t + 25/26) + 1/2 sin(22 t + 41/20) + 1/4 sin(23 t + 22/9) + 2/7 sin(24 t + 23/7) + 1/12 sin(25 t + 9/4) + 2/13 sin(26 t + 31/9) + 3/10 sin(27 t + 62/21) + 1/6 sin(28 t + 43/11) + 3/10 sin(29 t + 45/11) + 1/34 sin(30 t + 17/7) + 1/9 sin(31 t + 27/10) - 373/7) θ(27 π - t) θ(t - 23 π) + (-3/10 sin(5/7 - 12 t) - 1/6 sin(1/7 - 11 t) - 19/9 sin(9/11 - 5 t) + 291/10 sin(t + 56/15) + 38/15 sin(2 t + 31/8) + 26/9 sin(3 t + 5/4) + 5/3 sin(4 t + 19/7) + 2/3 sin(6 t + 26/17) + 6/11 sin(7 t + 68/15) + 4/13 sin(8 t + 25/7) + 2/7 sin(9 t + 1/33) + 12/25 sin(10 t + 13/5) + 2/11 sin(13 t + 25/7) + 1/8 sin(14 t + 39/11) + 2/11 sin(15 t + 21/16) + 1/9 sin(16 t + 8/15) + 1/8 sin(17 t + 75/16) + 1/5 sin(18 t + 43/17) + 17/3) θ(23 π - t) θ(t - 19 π) + (-147/11 sin(3/2 - 2 t) + 80/11 sin(t + 47/13) + 1220/37 sin(3 t + 12/7) + 57/8 sin(4 t + 21/13) + 25/13 sin(5 t + 35/12) + 25/11 sin(6 t + 29/11) + 4/9 sin(7 t + 21/16) + 13/11 sin(8 t + 75/16) + 7/6 sin(9 t + 33/16) + 6/5 sin(10 t + 12/7) + 5/9 sin(11 t + 10/7) + 13/10 sin(12 t + 24/7) + 5/12 sin(13 t + 28/13) + 4/11 sin(14 t + 7/2) + 5/9 sin(15 t + 46/15) + 1/9 sin(16 t + 7/5) + 9/11 sin(17 t + 13/8) + 4/9 sin(18 t + 73/18) + 1/4 sin(19 t + 45/11) + 4/15 sin(20 t + 11/7) + 3/8 sin(21 t + 7/2) + 9/19 sin(22 t + 33/7) + 4/9 sin(23 t + 25/14) + 1/5 sin(24 t + 26/9) + 3/13 sin(25 t + 67/15) + 1/7 sin(26 t + 23/24) + 1/12 sin(27 t + 41/14) - 445/7) θ(19 π - t) θ(t - 15 π) + (-2/5 sin(1/8 - 5 t) - 27/11 sin(2/3 - 4 t) + 261/26 sin(t + 7/9) + 176/17 sin(2 t + 23/9) + 16/7 sin(3 t + 7/6) - 438/13) θ(15 π - t) θ(t - 11 π) + (45/8 sin(t + 5/9) + 12/7 sin(2 t + 5/11) + 4/7 sin(3 t + 18/5) - 960/11) θ(11 π - t) θ(t - 7 π) + (-2/11 sin(23/15 - 8 t) + 61/8 sin(t + 31/9) + 23/9 sin(2 t + 74/21) + 11/9 sin(3 t + 11/7) + 3/10 sin(4 t + 147/37) + 2/3 sin(5 t + 3/5) + 3/8 sin(6 t + 35/8) + 2/13 sin(7 t + 7/5) + 1/5 sin(9 t + 27/16) - 976/11) θ(7 π - t) θ(t - 3 π) + (-3/10 sin(8/7 - 39 t) - 16/31 sin(13/10 - 33 t) - 1/5 sin(2/3 - 26 t) - 10/9 sin(10/9 - 25 t) - 10/13 sin(1/6 - 24 t) - 11/16 sin(9/14 - 15 t) - 10/7 sin(5/11 - 12 t) - 71/13 sin(10/7 - 6 t) - 69/7 sin(11/17 - 5 t) - 522/7 sin(1/34 - t) + 73/2 sin(2 t + 8/3) + 173/8 sin(3 t + 1/19) + 77/10 sin(4 t + 9/11) + 67/8 sin(7 t + 33/10) + 24/7 sin(8 t + 13/11) + 4/3 sin(9 t + 7/8) + 34/13 sin(10 t + 50/11) + 13/8 sin(11 t + 47/19) + 16/13 sin(13 t + 43/11) + 7/6 sin(14 t + 36/35) + 2/9 sin(16 t + 14/3) + 14/9 sin(17 t + 19/9) + 12/11 sin(18 t + 3/4) + 6/7 sin(19 t + 13/4) + 3/5 sin(20 t + 7/5) + 1/4 sin(21 t + 13/9) + 7/10 sin(22 t + 47/10) + 14/11 sin(23 t + 53/13) + 7/9 sin(27 t + 13/11) + 10/13 sin(28 t + 19/18) + 8/13 sin(29 t + 116/39) + 8/15 sin(30 t + 19/11) + 1/5 sin(31 t + 21/11) + 9/19 sin(32 t + 44/13) + 2/3 sin(34 t + 1/15) + 5/11 sin(35 t + 41/20) + 1/3 sin(36 t + 31/11) + 4/11 sin(37 t + 18/5) + 1/8 sin(38 t + 30/7) + 1/8 sin(40 t + 21/20) - 112/9) θ(3 π - t) θ(t + π)) θ(sqrt(sgn(sin(t/2)))) y(t) = ((-1/19 sin(13/10 - 35 t) - 1/18 sin(7/5 - 34 t) - 1/16 sin(11/8 - 32 t) - 1/11 sin(19/13 - 31 t) - 1/15 sin(14/9 - 29 t) - 1/7 sin(31/21 - 27 t) - 1/14 sin(11/8 - 26 t) - 1/14 sin(7/5 - 25 t) - 1/6 sin(16/11 - 24 t) - 1/17 sin(4/3 - 23 t) - 1/48 sin(22/15 - 22 t) - 1/13 sin(3/2 - 15 t) - 1/3 sin(17/11 - 12 t) - 3/10 sin(29/19 - 11 t) - 3/11 sin(20/13 - 10 t) - 25/11 sin(11/7 - 3 t) - 51/10 sin(14/9 - 2 t) + 22/7 sin(t + 11/7) + 35/8 sin(4 t + 19/12) + 4/7 sin(5 t + 23/14) + 27/10 sin(6 t + 8/5) + 1/6 sin(7 t + 20/11) + 16/13 sin(8 t + 8/5) + 4/9 sin(9 t + 18/11) + 1/13 sin(13 t + 20/13) + 1/23 sin(14 t + 12/7) + 1/16 sin(16 t + 11/7) + 1/46 sin(17 t + 13/6) + 2/13 sin(18 t + 8/5) + 1/12 sin(19 t + 47/10) + 1/9 sin(20 t + 13/8) + 1/39 sin(21 t + 23/14) + 1/12 sin(28 t + 14/9) + 1/18 sin(30 t + 14/9) + 1/67 sin(33 t + 7/5) + 642/11) θ(91 π - t) θ(t - 87 π) + (-1/8 sin(14/9 - 9 t) - 1/5 sin(14/9 - 7 t) - 9/10 sin(11/7 - 5 t) - 31/14 sin(11/7 - 3 t) - 5/7 sin(14/9 - 2 t) - 237/13 sin(11/7 - t) + 6/11 sin(4 t + 14/9) + 1/12 sin(6 t + 14/9) + 1/14 sin(8 t + 11/7) + 1/9 sin(10 t + 19/12) + 1/18 sin(11 t + 65/14) + 1/7 sin(12 t + 11/7) + 1/20 sin(13 t + 47/10) + 1/9 sin(14 t + 11/7) + 1/37 sin(15 t + 8/5) + 1/13 sin(16 t + 21/13) - 998/11) θ(87 π - t) θ(t - 83 π) + (-1/8 sin(14/9 - 13 t) - 2/11 sin(11/7 - 11 t) - 3/11 sin(14/9 - 9 t) - 6/19 sin(11/7 - 7 t) - 5/7 sin(11/7 - 5 t) - 177/8 sin(11/7 - t) + 6/5 sin(2 t + 11/7) + 17/9 sin(3 t + 33/7) + 4/11 sin(4 t + 14/9) + 1/5 sin(6 t + 14/9) + 1/11 sin(8 t + 19/12) + 1/40 sin(12 t + 8/5) - 277/9) θ(83 π - t) θ(t - 79 π) + (53/26 sin(t + 11/7) + 87/86 sin(2 t + 33/7) + 4/7 sin(3 t + 11/7) + 1/4 sin(4 t + 33/7) + 681/4) θ(79 π - t) θ(t - 75 π) + (-1/21 sin(11/7 - 5 t) - 1/32 sin(11/7 - 4 t) + 1/89 sin(t + 11/7) + 2/13 sin(2 t + 11/7) + 1/72 sin(7 t + 11/7) + 1/40 sin(8 t + 11/7) + 810/7) θ(75 π - t) θ(t - 71 π) + (-1/71 sin(32/21 - 14 t) - 1/26 sin(14/9 - 13 t) - 1/38 sin(14/9 - 11 t) - 1/42 sin(14/9 - 10 t) - 1/4 sin(11/7 - 7 t) - 1/8 sin(11/7 - 6 t) - 3/10 sin(11/7 - 5 t) - 3/8 sin(11/7 - 4 t) - 11/16 sin(11/7 - 3 t) - 71/14 sin(11/7 - t) + 6/13 sin(2 t + 11/7) + 1/17 sin(9 t + 47/10) + 1/68 sin(12 t + 11/7) + 1235/11) θ(71 π - t) θ(t - 67 π) + (-5/11 sin(11/7 - 7 t) - 72/13 sin(14/9 - 3 t) - 5/8 sin(10/7 - 2 t) - 247/20 sin(11/7 - t) + 19/13 sin(4 t + 11/7) + 21/20 sin(5 t + 8/5) + 3/8 sin(8 t + 14/9) + 1/9 sin(9 t + 55/12) + 1/3 sin(10 t + 22/13) + 5/16 sin(11 t + 22/13) + 3/11 sin(12 t + 5/3) + 632/5) θ(67 π - t) θ(t - 63 π) + (-1/11 sin(14/9 - 7 t) - 1/4 sin(17/11 - 6 t) - 5/8 sin(11/7 - 5 t) + 34/11 sin(t + 33/7) + 17/10 sin(2 t + 11/7) + 3/7 sin(3 t + 11/7) + 2083/12) θ(63 π - t) θ(t - 59 π) + (-1/14 sin(22/15 - 19 t) - 1/7 sin(17/11 - 17 t) - 3/8 sin(17/11 - 11 t) - 15/11 sin(14/9 - 5 t) - 609/11 sin(11/7 - t) + 84/5 sin(2 t + 11/7) + 27/16 sin(3 t + 28/17) + 30/7 sin(4 t + 19/12) + 8/15 sin(6 t + 17/11) + 15/16 sin(7 t + 33/7) + 16/11 sin(8 t + 8/5) + 3/7 sin(9 t + 51/11) + 9/13 sin(10 t + 14/9) + 5/14 sin(12 t + 13/8) + 1/6 sin(13 t + 32/7) + 2/7 sin(14 t + 3/2) + 1/25 sin(15 t + 35/8) + 1/7 sin(16 t + 11/7) + 2/11 sin(18 t + 17/10) + 1/11 sin(20 t + 11/8) + 1/11 sin(21 t + 77/17) + 1081/11) θ(59 π - t) θ(t - 55 π) + (-2/7 sin(3/7 - 16 t) - 13/14 sin(4/3 - 15 t) - 3/8 sin(4/7 - 8 t) - 42/11 sin(11/10 - 7 t) + 2727/47 sin(t + 63/16) + 74/15 sin(2 t + 19/11) + 191/24 sin(3 t + 13/6) + 75/13 sin(4 t + 29/10) + 11/7 sin(5 t + 2/7) + 11/21 sin(6 t + 47/13) + 2/7 sin(9 t + 3/4) + 34/33 sin(10 t + 18/11) + 5/6 sin(11 t + 7/8) + 5/4 sin(12 t + 193/64) + 6/11 sin(13 t + 37/9) + 8/15 sin(14 t + 21/11) + 1/5 sin(17 t + 29/9) - 1879/7) θ(55 π - t) θ(t - 51 π) + (-1/16 sin(2/7 - 23 t) - 6/7 sin(9/14 - 14 t) - 94/3 sin(9/7 - t) + 331/8 sin(2 t + 8/3) + 131/10 sin(3 t + 6/7) + 49/4 sin(4 t + 6/7) + 71/36 sin(5 t + 47/23) + 110/13 sin(6 t + 7/11) + 45/8 sin(7 t + 53/21) + 76/13 sin(8 t + 37/12) + 38/11 sin(9 t + 9/2) + 11/8 sin(10 t + 7/5) + 12/7 sin(11 t + 13/12) + 5/11 sin(12 t + 13/8) + 12/13 sin(13 t + 76/17) + 3/5 sin(15 t + 25/9) + 15/14 sin(16 t + 27/11) + 1/3 sin(17 t + 1/7) + 7/8 sin(18 t + 12/7) + 1/3 sin(19 t + 12/5) + 1/2 sin(20 t + 30/7) + 2/5 sin(21 t + 17/4) + 3/10 sin(22 t + 30/7) + 12/25 sin(24 t + 29/28) + 2/9 sin(25 t + 4/5) - 2245/16) θ(51 π - t) θ(t - 47 π) + (-1/52 sin(1/10 - 29 t) - 1/30 sin(5/9 - 27 t) - 1/24 sin(1 - 24 t) - 1/50 sin(2/5 - 21 t) - 1/7 sin(6/13 - 14 t) - 1/9 sin(10/7 - 11 t) - 1/6 sin(2/5 - 10 t) - 1/9 sin(5/12 - 8 t) - 180/11 sin(6/7 - t) + 8/3 sin(2 t + 33/14) + 4/5 sin(3 t + 57/14) + 7/8 sin(4 t + 9/5) + 1/14 sin(5 t + 2/3) + 10/19 sin(6 t + 13/12) + 1/13 sin(7 t + 2/7) + 2/11 sin(9 t + 10/11) + 2/13 sin(12 t + 13/7) + 1/5 sin(13 t + 7/13) + 1/15 sin(15 t + 23/5) + 1/16 sin(16 t + 22/9) + 1/17 sin(17 t + 8/5) + 1/28 sin(18 t + 9/17) + 1/23 sin(19 t + 3/5) + 1/31 sin(20 t + 11/9) + 1/22 sin(22 t + 29/13) + 1/17 sin(23 t + 1/3) + 1/44 sin(25 t + 29/8) + 1/64 sin(26 t + 18/7) + 1/77 sin(28 t + 157/39) + 281/9) θ(47 π - t) θ(t - 43 π) + (-2/5 sin(28/19 - 22 t) - 2/7 sin(1/10 - 21 t) - 1/4 sin(7/5 - 16 t) - 19/14 sin(1 - 10 t) - 7/4 sin(2/3 - 8 t) - 4/3 sin(1/6 - 6 t) - 248/11 sin(11/17 - 2 t) + 329/6 sin(t + 1/8) + 34/5 sin(3 t + 37/15) + 69/16 sin(4 t + 43/14) + 15/8 sin(5 t + 11/6) + 16/13 sin(7 t + 45/13) + 53/27 sin(9 t + 17/9) + 14/11 sin(11 t + 4/3) + 3/5 sin(12 t + 30/7) + 1/10 sin(13 t + 59/13) + 3/7 sin(14 t + 27/8) + 5/16 sin(15 t + 15/7) + 3/11 sin(17 t + 23/17) + 2/7 sin(18 t + 23/6) + 6/17 sin(19 t + 4/5) + 1/8 sin(20 t + 3/7) + 1/8 sin(23 t + 14/9) - 273/10) θ(43 π - t) θ(t - 39 π) + (-6/17 sin(1/9 - 28 t) - 3/8 sin(17/13 - 23 t) - 3/11 sin(15/11 - 22 t) - 5/8 sin(9/8 - 15 t) - 7/11 sin(17/11 - 13 t) - 20/19 sin(11/10 - 11 t) + 182/5 sin(t + 53/12) + 139/9 sin(2 t + 13/7) + 29/5 sin(3 t + 37/11) + 17/5 sin(4 t + 79/39) + 47/16 sin(5 t + 2/5) + 42/13 sin(6 t + 6/5) + 11/7 sin(7 t + 9/4) + 31/13 sin(8 t + 33/10) + 13/7 sin(9 t + 31/8) + 14/15 sin(10 t + 91/23) + 3/10 sin(12 t + 83/21) + 7/9 sin(14 t + 4) + 2/5 sin(16 t + 9/7) + 6/17 sin(17 t + 13/11) + 1/9 sin(18 t + 23/14) + 1/8 sin(19 t + 35/13) + 1/23 sin(20 t + 3/13) + 1/6 sin(21 t + 76/25) + 3/10 sin(24 t + 5/6) + 1/9 sin(25 t + 12/13) + 3/14 sin(26 t + 12/5) + 1/20 sin(27 t + 4/13) + 1/7 sin(29 t + 84/83) + 1/5 sin(30 t + 89/88) + 3/11 sin(31 t + 58/19) + 1/6 sin(32 t + 13/8) + 1/8 sin(33 t + 32/9) + 1/8 sin(34 t + 27/8) - 380/7) θ(39 π - t) θ(t - 35 π) + (-1/5 sin(20/13 - 31 t) - 1/8 sin(11/12 - 30 t) - 1/13 sin(14/13 - 26 t) - 1/8 sin(7/12 - 24 t) - 16/11 sin(9/7 - 16 t) - 8/5 sin(10/11 - 12 t) + 443/10 sin(t + 112/25) + 364/33 sin(2 t + 14/9) + 103/12 sin(3 t + 17/4) + 42/17 sin(4 t + 3/4) + 5/16 sin(5 t + 17/6) + 3/7 sin(6 t + 33/17) + 21/10 sin(7 t + 23/6) + 13/11 sin(8 t + 1/5) + 3/10 sin(9 t + 50/11) + 7/9 sin(10 t + 30/7) + 19/12 sin(11 t + 14/3) + 3/7 sin(13 t + 25/8) + 6/5 sin(14 t + 35/12) + 2/3 sin(15 t + 11/3) + 8/9 sin(17 t + 50/11) + 6/19 sin(18 t + 47/11) + 1/2 sin(19 t + 32/9) + 8/15 sin(20 t + 23/7) + 7/10 sin(21 t + 21/11) + 6/7 sin(22 t + 9/8) + 10/13 sin(23 t + 7/13) + 2/9 sin(25 t + 5/3) + 3/13 sin(27 t + 48/11) + 3/10 sin(28 t + 41/9) + 3/11 sin(29 t + 32/7) + 1/8 sin(32 t + 46/13) + 3/13 sin(33 t + 3/11) + 1/6 sin(34 t + 7/11) + 1/14 sin(35 t + 17/8) - 609/4) θ(35 π - t) θ(t - 31 π) + (-1/13 sin(1/14 - 24 t) - 3/11 sin(34/35 - 23 t) - 1/6 sin(2/11 - 22 t) - 4/13 sin(1/7 - 19 t) - 2/5 sin(14/11 - 15 t) - 1/8 sin(1/10 - 14 t) - 3/10 sin(1/59 - 13 t) - 7/8 sin(3/10 - 7 t) - 75/8 sin(5/4 - 3 t) - 219/19 sin(1/7 - 2 t) + 301/6 sin(t + 22/5) + 141/35 sin(4 t + 56/15) + 31/9 sin(5 t + 77/26) + 25/8 sin(6 t + 4/3) + 6/7 sin(8 t + 39/11) + 12/11 sin(9 t + 48/13) + 5/4 sin(10 t + 11/4) + 9/8 sin(11 t + 1) + 7/10 sin(12 t + 3/11) + 2/7 sin(16 t + 11/5) + 1/10 sin(17 t + 35/12) + 1/9 sin(18 t + 5/2) + 2/9 sin(20 t + 34/9) + 2/7 sin(21 t + 111/55) + 1/12 sin(25 t + 5/7) + 1/4 sin(26 t + 43/14) + 1/5 sin(27 t + 29/9) + 1/6 sin(28 t + 56/13) - 215/8) θ(31 π - t) θ(t - 27 π) + (-1/6 sin(16/17 - 28 t) - 8/25 sin(2/9 - 21 t) - 4/13 sin(1/5 - 20 t) - 2/7 sin(2/11 - 19 t) - 5/11 sin(14/15 - 18 t) - 11/10 sin(8/7 - 17 t) - 5/6 sin(1/2 - 16 t) - 151/12 sin(3/2 - 3 t) + 423/13 sin(t + 47/11) + 301/20 sin(2 t + 29/15) + 46/9 sin(4 t + 2/3) + 41/10 sin(5 t + 23/8) + 83/15 sin(6 t + 22/7) + 31/12 sin(7 t + 185/46) + 7/11 sin(8 t + 20/13) + 11/7 sin(9 t + 11/15) + 17/7 sin(10 t + 15/14) + 5/14 sin(11 t + 1/10) + 8/11 sin(12 t + 24/11) + 7/10 sin(13 t + 7/5) + 29/28 sin(14 t + 26/11) + 9/11 sin(15 t + 11/6) + 4/7 sin(22 t + 50/11) + 8/17 sin(23 t + 31/10) + 10/19 sin(24 t + 13/8) + 2/5 sin(25 t + 13/10) + 3/7 sin(26 t + 23/5) + 3/11 sin(27 t + 17/18) + 5/8 sin(29 t + 34/13) + 2/9 sin(30 t + 8/5) + 2/7 sin(31 t + 11/8) - 362/9) θ(27 π - t) θ(t - 23 π) + (-1/82 sin(20/19 - 17 t) - 11/23 sin(2/9 - 14 t) - 1/2 sin(3/10 - 10 t) - 23/24 sin(9/7 - 7 t) - 12/11 sin(11/23 - 5 t) - 5 sin(13/11 - 3 t) - 16/11 sin(17/13 - 2 t) - 237/10 sin(11/8 - t) + 41/20 sin(4 t + 31/11) + 10/11 sin(6 t + 2/7) + 3/13 sin(8 t + 21/8) + 3/8 sin(9 t + 5/8) + 4/11 sin(11 t + 45/11) + 1/17 sin(12 t + 31/7) + 5/14 sin(13 t + 27/13) + 1/13 sin(15 t + 31/11) + 2/11 sin(16 t + 1/9) + 1/9 sin(18 t + 1/5) + 773/18) θ(23 π - t) θ(t - 19 π) + (-1/7 sin(9/10 - 27 t) - 1/6 sin(2/9 - 21 t) - 5/8 sin(19/13 - 17 t) - 5/8 sin(3/8 - 9 t) - 33/5 sin(5/8 - t) + 197/18 sin(2 t + 2/7) + 47/7 sin(3 t + 40/9) + 10/13 sin(4 t + 32/13) + 52/11 sin(5 t + 47/10) + 237/59 sin(6 t + 16/9) + 10/7 sin(7 t + 13/9) + 14/9 sin(8 t + 19/12) + 3/4 sin(10 t + 59/20) + 17/10 sin(11 t + 37/8) + 5/9 sin(12 t + 7/2) + 4/11 sin(13 t + 12/7) + 35/36 sin(14 t + 13/8) + 1/5 sin(15 t + 7/8) + 7/15 sin(16 t + 15/8) + 1/13 sin(18 t + 15/8) + 4/11 sin(19 t + 197/49) + 2/11 sin(20 t + 23/22) + 5/9 sin(22 t + 51/26) + 1/4 sin(23 t + 19/5) + 1/12 sin(24 t + 1/5) + 3/11 sin(25 t + 11/3) + 1/7 sin(26 t + 81/23) + 89) θ(19 π - t) θ(t - 15 π) + (-17/18 sin(7/8 - 4 t) - 171/34 sin(3/4 - 3 t) - 92/9 sin(7/10 - t) + 149/14 sin(2 t + 10/11) + 14/13 sin(5 t + 48/19) + 1011/7) θ(15 π - t) θ(t - 11 π) + (-16/9 sin(7/9 - 2 t) - 115/12 sin(11/9 - t) + 4/9 sin(3 t + 77/26) + 1785/11) θ(11 π - t) θ(t - 7 π) + (-1/3 sin(1/5 - 5 t) - 18/17 sin(7/9 - 3 t) - 57/4 sin(13/9 - t) + 7/6 sin(2 t + 5/6) + 6/11 sin(4 t + 9/7) + 1/3 sin(6 t + 11/7) + 1/13 sin(7 t + 29/28) + 1/25 sin(8 t + 13/6) + 1/4 sin(9 t + 33/13) + 1116/7) θ(7 π - t) θ(t - 3 π) + (-3/5 sin(13/11 - 35 t) - 10/9 sin(70/69 - 31 t) - 5/11 sin(22/23 - 28 t) - 19/6 sin(17/14 - 21 t) - 15/11 sin(8/9 - 19 t) - 101/25 sin(8/9 - 16 t) - 147/10 sin(13/11 - 5 t) - 249/17 sin(23/15 - 3 t) + 423/7 sin(t + 39/11) + 250/7 sin(2 t + 6/5) + 143/12 sin(4 t + 5/8) + 208/23 sin(6 t + 57/14) + 67/8 sin(7 t + 43/16) + 37/19 sin(8 t + 35/9) + 16/15 sin(9 t + 5/14) + 28/9 sin(10 t + 34/11) + 22/5 sin(11 t + 5/4) + 35/11 sin(12 t + 19/11) + 83/42 sin(13 t + 48/13) + 22/7 sin(14 t + 9/5) + 22/7 sin(15 t + 1/9) + 9/11 sin(17 t + 36/13) + 13/10 sin(18 t + 32/9) + 1/3 sin(20 t + 21/11) + 17/9 sin(22 t + 9/17) + 17/5 sin(23 t + 23/13) + 15/8 sin(24 t + 130/43) + 9/14 sin(25 t + 27/11) + 9/11 sin(26 t + 27/11) + 11/4 sin(27 t + 58/13) + 4/5 sin(29 t + 3/5) + 1/3 sin(30 t + 103/23) + 4/5 sin(32 t + 11/15) + 26/27 sin(33 t + 35/17) + 17/16 sin(34 t + 17/7) + 11/14 sin(36 t + 7/5) + 11/15 sin(37 t + 6/11) + 2/9 sin(38 t + 10/21) + 4/7 sin(39 t + 29/14) + 5/6 sin(40 t + 11/7) + 321/2) θ(3 π - t) θ(t + π)) θ(sqrt(sgn(sin(t/2))))

[wal-phisics]

I was looking back on my life And all the things I've done to me I'm still looking for the answers I'm still searching for the key The wreckage of my past keeps haunting me It just won't leave me alone I still find it all a mystery Could it be a dream? The Road To Nowhere leads to me Through all the happiness and sorrow I guess I'd do it all again Live for today and not tomorrow It's still the road that never ends The wreckage of my past keeps haunting me It just won't leave me alone I still find it all a mystery Could it be a dream? The Road To Nowhere leads to me The Road To Nowhere is gonna pass me by I hope we never have to say goodbye I never want to live without you

The Road To Nowhere leads to me.

[mathani]

Any point on torus lies on four circles on torus.

[wal-phisics]

[studyin-space-deactivated201904]

My equation sheet for my quantum mechanics final! We’re allowed an entire 8 and half by 11 equation sheet. On this side I have every equation I may need and on the back I’m going to summarize some key concepts. I’m feeling good about this!!

[wal-phisics]

#ESGEESPRO

ECUACIÓN INTERACTIVA RECURRENTE DE FUERZAS, ENERGIAS, ACELERACIONES, ACCIONES...😊

[wal-phisics]

#ESGEESPRO

ECUACION DE FUERZA DE PRIMERA RECURRENCIA A PARTIR DE LA IIDEBTIDA:

F*G = f*g

[mymathematics]

By Giuseppe da Prato

[wal-phisics]

#ESGEESPRO

[fyphysica]

Never forget De Moivre’s formula

If you ever find yourself trying to remember any one of those basic trigonometric formulas, the ideal starting point is the De Moivre’s formula:

Above we have given you some examples of identities that can be easily derived using this formula. In fact, most trigonometric relations can be obtained from this formula after performing some basic algebra.

Try to obtain your favorite identity using this method and let us know how that went. Have a good one!

[wal-phisics]

#ESGEESPRO FUERZA CUADRADA COMBINADA DE CUÁNTICA, GEOMÉTRICA Y CLÁSICA.