Never Gonna Fuck You Up/Rickroll

:
The Never Gonna Give You Up program in Never Gonna Fuck You Up is so long (about 0.319 megabytes) that it is unsuitable to put it on the wiki. Luckily, the powerful compression method LZMA compressed it to only 4056 bytes, so we have a Python program to generate the original program:
print(__import__('lzma').decompress(__import__('base64').b64decode(b'/Td6WFoAAATm1rRGAgAhARYAAAB0L+Wj5N7dEZBdACcZSsZnjmRB3N0RPj+pm/k1jAzux1PHYDAJ5ltP6G8ozL+41U0hE4sV1Dn8aHK6uE/JN6VNnQTB5A8s8i2J9z7VqLZJgWHyRQMFk9WqqBZphwwWMS90rhwjEFubxHvScqhQz+xG11GYWSymoDbiY3n/F8HmwktSI6PaKkS2UHUDk9AQFEhW+hBsHoatvt7U7AqXdUrp+UCfg1iX1ZpLO3xmSmPgkCrNYKVU6S6GmxJJXlPHs8FZ346LRDPQrIbrHLKHE16gOQX4Jfez/LnLhmNjUQ9n4/T8SsFVBwGg/ESysZL48Hw8sOKyunzrlFyEr85sOU/uOxCRuNcliFp0U+bGmubJnnNHFafIx3uNK4FcWkl68tNd1in9DX7R8ZEVeJFgY4ieBLqyd5JGpilbBX0f2jOBQrSx1E47/Xa5jJuwVfMo4vNkfNLzda6CHvQAqDRbWI70inRbj1SCUlkDIXjfpA/X5UYqXyYvHc5wk4xBkoLu+w4EgI1FsfRJiPq0Ainh0NlBCp874Jaubt6dwACF318kJ/jpJ4TKmPaUqLSb74gOt5wlBa2Jkc6yZaxSwJdxeRRd7hMm1sC1f0DxhNdU4oXdhu7jE+fdIMNovIZnJSkYElijX3U5juvL0U27pa7h3EXQqAc2qa4EuRH371RyRMQ+Fw0XTqO9shJaeyJxcIQFBIWvQ0MRJ+PiBmJ7Ou2a5eqgNJKNiCOtkn+0gu1ISVmAfdtwcBP1Af9/ZFXeJFfMo8PEHRabKaMUxyikO3jvhyjVtRlTIRcoGDa4uYfFpzxdtaKjRgGkTN97CYLjkOmU7O+CSTSMI4Mx1Thtjll7aI9fU3T3XvlxnfKXU1XTwc9Y3Fwpdqw0x57D3uFC5je31tLoJ3hJzHQhtKlifg/jTDMiO1F1g2gOBqc2KAft6E3dr1gPXFZdwJOUHFbppJ4yNd5Yu1uQIZriqZrQQhuB976rDcFTJbflzEi3SMjHyaObaWHl6YSGGloSETCM143T5xAttR10xf9w4O6Dz2GXfC5NmszfEyNOBsq+nQmD4fBmw7LisgAZ5vdbo4mD0dVifzGo6tbsPn0elCwv0A6SRDxIzptxcqIk9EAV/ffkrvAOgHYfCxry+inTmicGvDAwHGqCG8OrPtktMqQFCYz0uZf1xYX29jxfhkub1FsaQmhhvn54/LpQa5bzeWdvkElPkgRcFnipElezSh3pvtaMO6VnIP94RKuQULK7xRHsTHVRM0rzlmsAqbvniBLT8yuhayQI9SgGsBoYTb95XISA1RlO+alOL1MBHkds7EAXVBO6bGRIj/BrvmKrHdXlWSXKCBUKSGN2F2r1ADfRQtYFtgtFxLi/uYCuZaf4uwiwZ/JHdN2T/s88t0fMxJox4Pga6yH9Nhtwe9kcwLmZpwrgKA5A14Nmw5NF4mKv6se3aG7T7dzbf2SHYhzfL4nNpnpf4pvX90wY41BqUqZI3mKCgc8Symeb30EvPlHD7qQ6nwUXk90xc1AEgNEXvhanmNbA4C1JTe8kMtyIatkyTIxmbK8/TS59Im4QVOawP4DOajvyp92Dpby1itJEJLCHauqrSn3NAf/xf1pvrSypLLIPWvX47vKdL1cIHSgOLlYSFkNSA4xG88a9BysTT9o3nKscnFzlUUW9KtYrJhE3qBMKy2ygIk0JaVbArTnbtTMuBOpexZu5F2qLt4tJ+OOZQf6oZSxsj1QhmhokLK4QJEU8PIYILPDyM9jpBkewXTHauvMRY+1XlnE31qgAV1P705tcqIQU3EcN4ZHVC00E38nNj9FcZluBMKzFLgoFn94mAp0qT7pdp/SABM+K/pE6jwHtTSn+E6WxgBHOVy9hT+QjwTvFz1+hP2UU0RsFomaIS2Bunyq5090jHaOe+niPon+9864RoR+JtDSKhp12rbFYsAp0KTQ2VnWHaNHqC16g2RIIksN+pmZQyIN5uBd/hpLHOypQ1VQ9EZhAfeWhURaaZbOo1zD2lMZN0SkSkgNc8LP3LFy0dNmlXvTcc3XyulcoJaRVdUuZCiPP5qCvr2ljOFt4nOl1zuB9ddFo6BML3SABAPVjYA1w4AbxzKtAF9ULbYETldO2K/yvarbpF6Tn3VZ/3n8aOV+cinb/mw0ESFeLT1UY0EzcQXEYnjPS7xpjAEOZAGR+aQDc0uXWqeb4GdxMPL4wy1ZZM0QTsoz2Xm4MmZv4uSPmufQyFkMrFtKeKkJ6XJWFqS3xKua8m5tk1eTzJDCWtR9UCSmhovw+SntiQoBrXFLeZ4wpkHmGtZROWzJYmQAA/BNOvsVUjn44FZN1GfbtdhA3TGuM1s9kJKN3537qvh3YYGqZpwzTgDMT/z8ejMdNnwdVStLrMMsVoZQovWrxUjDXQEkuTaFilHZBLCLZtJq4UqDOtTfFU6qWAQJMRcipK+Qw2ZnOcla5ePMCa5Ob/84epWXMXwZU+VrTIM2wmu3ocPcamTLiizhIxGOJnPYdtrqKLnUtX1GrhJMlcU4ptSkN2ePodImmSV1/4A1HLgDIjxUhPVW36JvXVUC+ihsoc0MkAwtuAJ/aMuY7/robXqFUwIDx15JmFJ5GPxDm1HzYGBCb3ZoBP30+7GbHh4psVXaB+Vw4LBw/T5lJaEBwv++MEoSGYLQTMrCoyTvcS1PGNjeslvPnVbX/++iwoZt1eOD07rDMTDr/lCQj4QoL5rkJ1taAFRsXmAPYUnusZm0VLtgp3+67pMcOq7H5uF+5XCOg9Pxfu8otbaJ5foWq9DkI0IGI4C0WeUdWnulv6aAmK1lh5OvgNUIUgm0rH8Z6OK2PUZ8MqhKwvFgN+a1UzGOSk7iC4h+AvEcjw3EtVP1ONnWbcuhBt+RbktMKJrLq5bsubGQ8DtYX3Fs2gRHGdgLmxrU9RioIemfInB15L/VEZjwc0Hhw0XZ3w8XliC0buC35SHtpIt7vZucmpiwl1mciF5gswdp2kOd/nE/+vtWe/OL12qqAV5IHOR+YliSmF6xANDpstyUixtJWLDd3lVJw1qdmBmPJVtrIy3v3NkbKgKEbwpsLpH68Umbz9tAz9tUDt4Udjcy/JCfE7VGUIZ6D4VZp1+C9DMZocRkc5QjJ//UAi2LWvOUUH7ROjMhoZhotGZQsR1y5wAUdCbPqM2wCsGE4gOvLDtVyHT5snwRqxUWjxAlXefdO9h5fBx2Xk+cawWXuTKVbo1/Fu6Oc9xcAdmTw8/T2Fk2w5Hm95hqeDptYbPLwMdG2JU0r5k5jWMCVbQeCGgDoC8RNbQaiqUFzOcu+oPUd4D/fciSRZJc9eNqVoUyB2hDyVwm4bXtZtM6NAPx9APpPcAKyjVqGixdXr0/8EJThH3BLa0a1MvSASsIyvdKZ+hzrmOe/Pu0kROUgMgAEXfvBlEfACDRyCijO21mo88AGTISkKBynfByqe1tSlcgk3s243CT3v6H3nFKKFGFKs5exjrVjbBw2qcqPIKZLciP5V/qv06VBAJtjThLeMU9Lmc1RhJWkg8SP70nu8pBabczjPbQwM5Mvwj3Y76aAE1H1e3U8eQbEDvk85K4DNYP3zusxkX2kvG6+BZ/z57Q3oJRneXxf7TkNzzSGAFUjuiGR6so8ZZeClUxNH+7P+/qbQBvVg58V7N5klgbkSZVnxQ+rPXcV3rb2+a21aJNlBrCq+/r4n1qXcfWfC+tGuak+jxne+3z4vCIpOkntNe5bZ/AH4/MNkJ55/Dio0NQjmHAostoPZG2YuDPqPR27PkYB6MjGHgtTJLThprRJgwJFXed8HsHy58qWqneLhzSoI3lpMVt2MV1PIapDCLE9xhSasUOfISJhOHqH72pW/S2qCAhrPRFRC77WhfcoV+mmMKIrP49QMthZ5rDHhfwkbBtygb1iz/3r83d+fhISGCbXiA8VxbfiVFmwJ8wKZcHJq0P/PTO1X/A09wp7rjNlGnFJCkIaWRcvX+bEG7JyGfutUFSZIwWHYyWqdxqoh4YhUkyjGXMDRq4lnXGdegXiyPBDggdhmbwU7OyTXs1JvO1X5WmCg3YXOH4Fnzz1l+lTCGIzPTG52mMwBA8EeCnI6CYXlMIuKgoJ2Weygo63JsSw+TThZtWy9Ep28K/UE/Q1+kft1pbqTfkc0MhwX51gPJyOdCtaEEUimg0PcD9MfQ65gGNUeyEJgEaC8OYFLTh47uUUiL0tesllQORrKlCa6l10GR26BF2S46r9n4CbQca3hIUKfo0dw05TBMAO21bxWEeZ/6ToLTlWooHiTJOBDGecNxV46gTmyFcJ11GMQoVh+i0DC7ZITzoHbHFJi7PbHBGuU56y4rpOSBWmCGrgnWyLPIsz/PPNAytXdW+G8aS5MU3/uagD6Fq1WGLbrLuzMxEbHctJVPMb6EDlsOeBt3vdwB6rphqPTkWt4Ji5pkO26zASYa2ODBVHOvAMEsxiwr88+rHNU3Z6g5kAJ8Xhk0frRuruTYYLpm8ugC5FyQ/m7QWu+oxz4UzcSBQPtE0/3nrN80bPsflzE3XQB0gge91uD8tIQ7JbVwR8VrSURNTMrW6PIY8mQBkwfdytw2MPQw3AgZZRGnZBT8nWK6sW36hpioSnzbb6ylNHpr8WKpTxVDqgcxj9zLxdQ2VZqZxCHWU2WiQHzhWccfcjRe+rwL/qUXxAydVZy1aVAsVV7YugdwB82XdL4501hxKV6QrRMDkrlGpN5iSW+bYaQlC6j4fUydsNQ9zlRZ4+QYnCo7yZcGfyxhePokLY04Czy+/Z3IvIuCBghrpFEkTHgaBb1v4SRz7MUaY26O65NaUk9U/hADVDyeXit4NyyDh/YiulHxuBrLT0VC8GnkroqE9htfgVuDzA++sUJ5fzBL/EwpxCdsGnLGpFgYK7ym3HVa9PpwdI2JqZGafg2lwldkiEW3vwwVuYgo+vndpZ8g6hwSC0a4VR1LHKtbeuV10ZfeODlcvUf9D+BhKXzwM28FvZyyzxqOatCGD9jv+oVs0LaUPDqPx9ebVorUu3ecevK/bd3rlo84I5gsQNQoFC1zMKmlbLpaKwuCAnZBLx8Rss0SYOswXW0+zfrouaBpGe2lPj7NrVCK+pHHic54eGt9yiReiANs0tBK2DqY2e8uHFV3xCpU/aZHNduM4e9At7oY3geg2nweyGQ1S3EZZ9fkmjUPom0G1f3OvWBhYkgYueZ8tx1DYcWePKZI32fxz/B9UeQJbBFXVTBZMfe/gPIibPWi0wmfV8N7nbtDQ7jp5rvmlYZguAm7zsbw+8F8msqOyn8jgJW25bYsWulQA2r0JsTVhDo7W+59UOgJAA3Kw6U6LWujVLGARXqgfAtbQBD6Miqj6KvBPKnw1piFU24H1/vqfaQ7VYkz6xIGiVxNpTCs+KRAnF+nfsxzJYnqnPoG5cDjgVPtBjsFfMvdOZ0my+6+BKyRIk6wIOvEjko6cDHR82j8KZm5cdX2x9nqNPCrxRRt64PmjS6S6ww8L+BbdZ/2vH0CUkg55pUYBM2myFJkGl0H7BZcsBLR5WPS4f6r/Jdo0GHFMinQt00ojDAPumIkjbvKXAV8H0hEZGb+Rh6q08wsPLJ2MUMmJBDr+tSJO/YKBUJz5KofkkrqMTLqygsZtNnLYqYJvhuaHfFDNhOQt+J7VcuaHiWd953D7oZciHc/DruceigOUI3nbjur4fsjiKLWyxBQAkNquu5S8uw0XaX4AKy8+Bp7WJwfeIV8TKkLpABPXBuZq1TQQ+0k1bwxu027OCMLgs4M0SFlhg3HxtYli44Ew22eTYRB2hQIVJCDzXcjDtJapBhrw777m8WsdxPqCoIYBDexDJUWxvGDQA/S80aTG5ZBqsX3OgXrEp/tk/bnl2vqUc/Aw+myMiZQHIXzZ7rKlvgZ9WPlVj2pQof8PbW7/4bHa+/D729xHjrXxhw5TT2diPTlSuI02yUFbVqSzSxSAJJB90gsCaDAxaSjeoEb1y+pmeJwiXjGQE4MiFPvO3CjvF1nmte3x8s5AxABemwoa5LDXgAAGsI969EwDnsghBscRn+wIAAAAABFla')).decode())
Category:Rickrolling
Category:Examples