# 19. Haskell, 690 bytes
<pre><code>void /*-{-- #hR!X-@ P^h~~X@@0D 0D"hv!X-@ PZh +X5 "M!M elif MOC SODeerF$}++++[*/main(){//\ /+ #\ echo hsab<<'EOF' #>> 1+///\ /*ggcGmiVZZ;ooo"loG";?=0%S!11ooo<"><>" #define S"" #ifdef __OBJC__ #define S"-evitcejbO" #endif printf("C"S)/*/import std.stdio;"D".write/**/;}/*<< "rT";#z_"B",@>2+; > ][ v;#;8k,7y2-;@,, <<< >"Befunge-96"#^Z00G#^_$4->1+>,,,,,,,,,,@ n*'um{Z'; 5kziZ<m%*///><>}]⎚¿⁵laocrahC¦++++[-<+++++>]<[-<++++++<+++++<+++++>>>]<<<+++++++.>-.>---.<<-----.++++++++.-----.>--.>---.<+.>>>((((((((((()()()){}){}){}){}()){})((()()()()){}){})[(([][]){}){}()])([]()){})[]())(([[][]()]([]()((((([][][])){}{})[]){})))[]())({ -}_=")";main=putStr"lleksaH"-- *///@,ka"89-egnufenU"</code></pre>
Prints:
- `D` in D
- `emmoS` in Somme
- `><>` in ><>
- `C` in C
- `laocrahC` in Charcoal
- `miV` in Vim
- `C-evitcejbO` in Objective-C
- `89-egnufeB` in Befunge-98
- `39-egnufeB` in Befunge-93
- `elif MOC SODeerF` in FreeDOS COM file
- `><>loG` in Gol><>
- `89-egnufenU` in Unefunge-98
- `79-egnufeB` in Befunge-97
- `69-egnufeB` in Befunge-96
- `kcufniarb` in brainfuck
- `89-egnuferT` in Trefunge-98
- `kalf-niarb` in brain-flak
- `hsab` in bash
- `lleksaH` in Haskell
[Try it online!][TIO]
Next answer must not exceed 897 bytes.
## Hexdump
00000000: 766f 6964 202f 2a2d 7b2d 2d20 2368 5221 void /*-{-- #hR!
00000010: 582d 4020 505e 687e 7e58 4040 3044 2030 X-@ P^h~~X@@0D 0
00000020: 4422 6876 2158 2d40 2050 5a68 202b 5835 D"hv!X-@ PZh +X5
00000030: 2022 4d21 4d20 656c 6966 204d 4f43 2053 "M!M elif MOC S
00000040: 4f44 6565 7246 247d 2b2b 2b2b 5b2a 2f6d ODeerF$}++++[*/m
00000050: 6169 6e28 297b 2f2f 5c0a 202f 2b20 235c ain(){//\. /+ #\
00000060: 0a20 6563 686f 2068 7361 623c 3c27 454f . echo hsab<<'EO
00000070: 4627 2023 3e3e 0a31 2b2f 2f2f 5c0a 2f2a F' #>>.1+///\./*
00000080: 1b67 6763 476d 6956 1b5a 5a3b 6f6f 6f22 .ggcGmiV.ZZ;ooo"
00000090: 6c6f 4722 3b3f 3d30 2553 2131 316f 6f6f loG";?=0%S!11ooo
000000a0: 3c22 3e3c 3e22 0a23 6465 6669 6e65 2053 <"><>".#define S
000000b0: 2222 0a23 6966 6465 6620 5f5f 4f42 4a43 "".#ifdef __OBJC
000000c0: 5f5f 0a23 6465 6669 6e65 2053 222d 6576 __.#define S"-ev
000000d0: 6974 6365 6a62 4f22 0a23 656e 6469 660a itcejbO".#endif.
000000e0: 7072 696e 7466 2822 4322 5329 2f2a 2f69 printf("C"S)/*/i
000000f0: 6d70 6f72 7420 7374 642e 7374 6469 6f3b mport std.stdio;
00000100: 2244 222e 7772 6974 652f 2a2a 2f3b 7d2f "D".write/**/;}/
00000110: 2a3c 3c0a 2022 7254 223b 237a 5f22 4222 *<<. "rT";#z_"B"
00000120: 2c40 3e32 2b3b 2020 3e20 2020 205d 5b20 ,@>2+; > ][
00000130: 763b 233b 386b 2c37 7932 2d3b 402c 2c20 v;#;8k,7y2-;@,,
00000140: 3c3c 3c0a 3e22 4265 6675 6e67 652d 3936 <<<.>"Befunge-96
00000150: 2223 5e5a 3030 4723 5e5f 2434 2d3e 312b "#^Z00G#^_$4->1+
00000160: 3e2c 2c2c 2c2c 2c2c 2c2c 2c40 0a6e 2a27 >,,,,,,,,,,@.n*'
00000170: 756d 7b5a 273b 2035 6b7a 695a 3c6d 252a um{Z'; 5kziZ<m%*
00000180: 2f2f 2f3e 3c3e 7d5d e28e 9ac2 bfe2 81b5 ///><>}]........
00000190: 6c61 6f63 7261 6843 c2a6 2b2b 2b2b 5b2d laocrahC..++++[-
000001a0: 3c2b 2b2b 2b2b 3e5d 3c5b 2d3c 2b2b 2b2b <+++++>]<[-<++++
000001b0: 2b2b 3c2b 2b2b 2b2b 3c2b 2b2b 2b2b 3e3e ++<+++++<+++++>>
000001c0: 3e5d 3c3c 3c2b 2b2b 2b2b 2b2b 2e3e 2d2e >]<<<+++++++.>-.
000001d0: 3e2d 2d2d 2e3c 3c2d 2d2d 2d2d 2e2b 2b2b >---.<<-----.+++
000001e0: 2b2b 2b2b 2b2e 2d2d 2d2d 2d2e 3e2d 2d2e +++++.-----.>--.
000001f0: 3e2d 2d2d 2e3c 2b2e 3e3e 3e28 2828 2828 >---.<+.>>>(((((
00000200: 2828 2828 2828 2928 2928 2929 7b7d 297b (((((()()()){}){
00000210: 7d29 7b7d 297b 7d28 2929 7b7d 2928 2828 }){}){}()){})(((
00000220: 2928 2928 2928 2929 7b7d 297b 7d29 5b28 )()()()){}){})[(
00000230: 285b 5d5b 5d29 7b7d 297b 7d28 295d 2928 ([][]){}){}()])(
00000240: 5b5d 2829 297b 7d29 5b5d 2829 2928 285b []()){})[]())(([
00000250: 5b5d 5b5d 2829 5d28 5b5d 2829 2828 2828 [][]()]([]()((((
00000260: 285b 5d5b 5d5b 5d29 297b 7d7b 7d29 5b5d ([][][])){}{})[]
00000270: 297b 7d29 2929 5b5d 2829 2928 7b20 2d7d ){})))[]())({ -}
00000280: 5f3d 2229 223b 6d61 696e 3d70 7574 5374 _=")";main=putSt
00000290: 7222 6c6c 656b 7361 4822 2d2d 202a 2f2f r"lleksaH"-- *//
000002a0: 2f40 2c6b 6122 3839 2d65 676e 7566 656e /@,ka"89-egnufen
000002b0: 5522 U"
[TIO]: https://tio.run/##rTpZcttIlt/CFfonDcoGIAIESdmyTJFsa7XdY1sKy1XtMUWzQSBBwsLCwCJRVqkj5gJ9gD7A3GC@J6KP0hfxvJcLCC6uqphu2SIz86351kxAYyebfv9eI4eeRxxCJ04xiZ23JE9gNkvCu0mY5CSnWU6mThrTLCPjO/I@oCff6NfrZKzUyHEShs4so0Q9TjyqEif2iHqYToqIxnmmkoy6eZDEGfGTlIxpntOU0PmMpgGNXaoorpOTPnGBVgljYmVsyD4aY5/UyBH1i3hCrRe7Sp4U7pTM0gAYKyA68MldUhAHdZcCTRI515RkRUpxF1HiBf4dAQ0aszuSJSSfgrx8Su@AhJIgdsPCox4McJGEQXytUHeaECsm6nZLBdU4bWW1jateki2v7uJqlkQRtfxgjjBldpdPk3h3ZfXt4ftXPx2@Oh29eX9y@qnXUo7@8@PpZU/d1m9dYrld3LqhKrBrZjgSOvGkcCZUN@6VLSZPrZHtZS4Nst0yyTbjBB4Ch6nK1hh8CwyZxv2kyGdFLhiIzf2S0ps@@sLNqSd5r65bcahsgaUfETeaEc6GSCB58mQzAKgO0KKxssX5/jlN4onAapDXdO4V0awD0PncI1I5P1C2VswDZtFXNltvGWAfoa5Frv6yrWMQcSbG1V/Qmcx1fRkrDxgt0zyfZR3bngT5tBg33CSyP6Z3b/LzGLxO7Ty9C/JEjim1IyeDWLVvU2cG0ZoBB@kJomJGqERlKrCxsoCdAMCLPGKlRcziuAq8xFAAhLSAPLKTWW6z4OCfjXS8RtDv9gFdRhKj8INsyj4wpFfxjwGbYblW7rr2OIht@N6szDHktJs4YUki5uVgk4Cfgwjwb4KozFUYN3IIgb7t0Rs7LsKQtPtPWhgb6BcBrvI4H3/FqnBDLVR3gvrNSVIuupyvlVTXmAhg2bBXFquMy2KxL/c0LleYLfzxOFjb0qLErFAxEhhzfX4huROEmFH13RdV@jMIl5PzS3J8/o74QUgrDuNloor8Kgk3@HSShMytWerK8Sbj/xRXNzi7YxNiWVnu9V7sw6AQCD/e4/M1yzy3otwPbPwADnLxxxz2foNDuby3xmOcOkHsF@51yUIuLEZrRB/T39h0nv5g04yn5YfOsrypA/KOcPTaEfKIdbhECKVT5V9rTF872TUNQ5bEwIpNBJLC6o1PtKu4O0tpn9XyvlY2AizG2AZdLFHJjMa6hhia0Uip4@lGh9HrLna2JPV01@j3dtvYUfms22o/x5lLYmjLQax1@080GkLz9bUntXuO9HCgmTT2epoGVVIq1LWZKl0b1bqKr@ILVhk7ONRYDxalUhCoV/EAqiMJoK6ymvhoOPj45nyI@O/pPIc2n91CJ48KOBqgMnTuUugHWK1ZF@q3dnf/yIc7rV271ezwSf1p0zB4i2ogs1pNNgOcqQq2A1T1lwy4aZn9xSbwY2sV0zJFOmU9x/4MnrBrtYWhec/@/v0mCTxi71j3lkVq0w@PPlkvycWX6V//@unly@YJaZ6o0xu@@HlK6p@eEfXdo3eEhmD/d@fH5PL8hNL0bPuhDj@DHWgJQQxt2LavFGLXSQ2@WAuYZs6429VOz880Uuv3lVbdRhx75w@TifsqCn7@w@fPB0mSqGHySj34Y6/5@PJRqwULXVbflZpHfbAxuVRhHPgwI6PR@dGfjkejCsyiN0Hu0q/jc8ACDwe@MIoOVf/SsHfsIJolaU4gMRrwGyQH0Iwat2mQU3tnxz54sHe6XQXi9qN6UPs2Uo9U82W/XT8gcHKBn@GA3BzUDvavzed3bevgpWmSLuD3q5lf@/K52XxV@zLafmr1W/W@Wf68VOIdrYjuP2sH5Nn1t@BzN3q8A2aADT4M//m3v//jf//5X/8TOombOtPjf/w3s6jVxa96f9iVw3q38tnvA6QrAPVG34L/ltXodi38adQlgE/7loQDar@vL34M/GfcP5T/@UxCSthA1wfDwVDiDA2YciD7BiiCAcDWGWtcAArAYViIawjse2I9jHqqoR5g2PTgbHKZp2oY0uvMea1CQKJ1XprXjrr/wqKTuPBp/JP63U@TiHwLgzHh3txRhFehGNG9p4rfC51o7Dkk7rAKEptaOi4riOL1xhqWrau57@OvVvd1rcGO05AUmlEfawsQH2uNrwnEta@fGViczqCwDHhdMjWeSDDgjQwG1cOsNjQUtwcnKagqWQZ9WX9hnpyevT38eHpiWu8OP43@fPTm4yWujd6dvhu9Pf359K3ZNHjc6nxHjfHeU7gKgDzdbUheumfU3YYfFtlUN8yx9tKGLXqUYcFeszwNZrrW0wwDLi/Qe60wgFP/fH@PREEcRE5IaFSETo53jpULC@Q2HvXL281tkl5nZEpTamK5uw2gnOMa1mgwaojsTbB@CjpPyLiYZJwJ4HoJzWKNsxAc8EIyS5OxMw7vSIwlEW4hUDAhX4FicWlhoCkNZyAwnwoMFJBPg4w4Y9ihw87/JoEWQyIqrygu2h8qNUmgR0BdgK/oTpRjWIw5AzjBQaRB0ioyfLK7TGGxxS4WSRJmIsDIzEnzwAkVhWlSaUs8skA@8eGkDruapE5EesSXwRbRKIEm0SOD96DKcGfv2bPdPbE6aD/b68BvHdTQBa0xBFwxVjwalmMlpZMAj9sZINxrby60DmnOW82mSbTLN5XJ8Sc2aTbPzkxlSzvBKcpGvIvF@OSNHAPSoaRhHI4qJEeS5EGBQ8KECz8@g8UzB7oqYJxXJ5@rk8vq5KKcwFUDyzdN0yTVo2xiMMthtPvq6YcP5x865B6WH@Cr3POj9EE1lC3wUIPOg1xvGZzJhOYjdMQI26WOnHAASgoLlwwGaLHhkN3TGApEAG6rI/TQ6Jy6RY7hVcS8n3iCiQaCV/iQeo@0cDUv0pjxW1HnFg8aqE6YgDIrWipb02DTqmCnA7TbJfsGqZMwUZQPp68uMYDQS9y/6D72ecQ@wa3cUzwUuHOHSPf68O0Z0t5LH@ucCfODYZIaOXwLoGMOOl4GHb@V4aNzcQvQCYKOOOhoGXSEIBZoQtbHtBCiXiPRxUJUCTlGCAtiIamEnCDk5M1CUAk5eq2IQIJimIQ3dBQlXhrtM6unkQnLE9j5ErC1h2bGwpQFcZY7sUt1RIVKglRABhTSbIM0GjLHL63RybB0lJCyQQsUBAzZeJOnjw4vT9GlA@lB8JdJ5OxEzi6WYBdVmFyt4EoOGOVQBkcyZrn@lwOujW2TffKY7A@ZeixV5Dq0Tm4CvgJIzFgcrUd2mYn41hlDMJBJqpKULTxpIxr2LWDUhCE2TLQiFGfcNlIhBnJeZBXadS0lizijeYmEDAJoACncbEVmEsd1oRNiggqR9d4KU6nLE1AGGrnvK8pWdVPNUpcIp3tsKne5ks6rm90qt1tSoCweFAisyGkxNJnhXNfVuDDIE6HkmqRSkJNlFBqSZNv@Na5c6x9ylRVrX4elUZKOwKgYtSv5UcKAvJiFlGcKnZhkGkymLMUkBgA8J3d4xEMOAMTg5kbUqgUYGoQca1rV/VXhjyVYQgXzRW0XcodcCAPLIGLuYXHkq9iLeWXHgJKxkwP7@wWTTrM9Z02mqgM3UrZsJJOB/mVTJaH3a5bKJMAkOtuZ7AlIJ0xjVE1XIWD4HJM7n6FKzHX7gR5gm2ACTW@fCVu0V87yd4WHLKPCTUuJ@P/yVJn6FTetu6jcF@u1G4OD9ds1CFioJRQCUqEOgXIF6P@@MFpt5yKgluz6eyKqbFKbzFpxIDDmHly2yyp4kV3cOmvwSnZuDBjYywYIsylAp4HYqQgqyV7sUU7hWt2cP/c7iwWrJ8UK@0lIlR8o@esM/U0sf8h0EfsLngJRsJDGWkIHLX4DX1KgQ9PRV9cdZVO4T@huAo0Mry6cMtx0RmD9MSwNhOOFbQJ84Cp4dMiG0ymgV0UHcNVr7Y12kxk7mGSp24KYy/LNJyQEA6TcJS8DuGpwaHsFutRvcEdZESJvxmgHv9rVMzQIXolYTgGk7JIxwBvGsCpjmdYgj5jeQFJSfOYUFfrq/udJyk@GQG6iPqsb32f7xjrPMCZiZJAvfAwkhiiKM7hxyyzpLF0NLi@YDtxcODOIhS26TPcqormacZJ9MhPHx6VeWmEKmq5fb5AlCseq9SO4TE6Os674OnpbWe@GIqLgvsZyLwaCtJjlP4jhChyjt80OXOU9jrelDWjsvIT3cM52X6/eJgxxm0D@HAdpmi9YtRav2XpE09iByfPShU/gdsEOi7fTIKSMGT@@xfQWkNxpqjNhSGQwRE7Pr3v8oMhQgfs2XErG0BKuGUBIBUSA4wq/0fJl@bC52q1FU9F@ioMIjgr4wIK9ZM3bLVK@2ITOgmPWU7RKRf8hsbAh0JWTklhhjivEu2Z2KQRDex3Cn5Z1RFfidp6UY4zh1RQ3kXS32alkF1969tvcvmziVgOVnzZBUnP@7AxfV8N2xjRMbpHr3v6Cq0i@jQrtveislTsGeL63YLBaiqsFB1p/pZpwpq7XWUQ8XjnlxOVXQ/GoESYdUjmBLY51mHSGoPLo76ayFlS453WyhSUESYmezH5ViCgwhoI3M7hR0bkpL2g0LiKaOpC8eMHD9GZ/ksAuNZXoQdRvwUxPnXhCdfScCY7bg899uCQNqhYSdGLnciZ2VE6ZxkN2vKkG6UDcaJiS7MEYfw6nV5CY7lA6lzKawTcVpDy9QyFTJ/ZCdjNeEscmcCLENzWQRf9B704x0SoZpxbxdZzcxlW6Dk83mJdnP8FfN76vPjAsnxW6/PItHxQ2slkI9VC7iiFV8bkfwgcWlOsaUGRFxB98Uv6XEvyFXCAeZlLwNLRyfAel5E4KmwbG6mEWdPbrnU673nn6fMeKzANVKWujqnLvm@6y2zk5OyL0@Lsya7fNoyBETJTbEUdm2FNowPkk6GQWQw4HwZDjL6ohltTs8Ytn9d22fKbN3/BzVqop/ibh/wA