Og siste.
Kode
import Data.Char;
(?)(??)=(??)((??)????(?));(+++)=(\a->null.flip const a);
(-^-)=(div);(????)(?)(??)=(??)(?);(?:)=(\(?)(??)(???)->if(?)then(??)else(???));
(???)=[(\(?)->((+56)????id)$(?)-^-2),
(\(???)->(?:)((((9????(^))2)+14)==(???))((???)*(???)`mod`194)((???)*(???)`mod`9001)),
(\(?)->(?)*(?)`mod`1091),(\(?)->(?)*(?)`mod`2089),(\a->a+22),((+)(-53)),(\110->0x20),
(((+).(+1))10),(\(*?)->(?)(\f(??)->(??)+4)(*?)),(+10),(+8),(\_->100)];
main = putStr $ map chr $ (???)????(??)
(??)=(?)(\(?)((??):(???))->(?:)(256+++(???))((1-^-0)????(??):[])(((??)(sum((?)(???))-^-((???)????length))):(?)(???)))