C:\Users\Elie
λ ^D^D^D^D^D^D^D^D^D^D
♦♦♦♦♦♦♦♦♦♦ : Le terme «♦♦♦♦♦♦♦♦♦♦» n'est pas reconnu comme nom d'applet de commande, fonction, fichier de script ou programme exécutable. Vérifiez l'orthographe du nom, ou si un chemin d'accès
existe, vérifiez que le chemin d'accès est correct et réessayez.
Au caractère Ligne:1 : 1
+ ♦♦♦♦♦♦♦♦♦♦
+ ~~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (♦♦♦♦♦♦♦♦♦♦:String) [], CommandNotFoundException
    + FullyQualifiedErrorId : CommandNotFoundException

C:\Users\Elie

C:\Users\Elie
λ ^C
C:\Users\Elie
λ ^C
C:\Users\Elie
λ ^C
C:\Users\Elie
λ ^C
C:\Users\Elie
λ ^C
C:\Users\Elie
λ

from __future__ import print_function
import sys
L=list
C,t,p=L(sys.argv[1]),[0]*30000,15000
def P(C):
 while C:
  c=C.pop(0)
  if c=="[":yield L(P(C))
  elif c=="]":break
  else:yield c
def i(a):
 global t,p
 for x in a:
  if x=="+":t[p]+=1
  if x=="-":t[p]-=1
  if x=="<":p-=1
  if x==">":p+=1
  if x==".":print(end=chr(t[p]))
  if isinstance(x,L):
   while t[p]:i(x)
  t[p]&=(1<<64)-1
i(L(P(C)))

I=lambda x:x
K=lambda x:lambda y:x
S=lambda x:lambda y:lambda z:x(z)(y(z))
B=lambda x:lambda y:lambda z:x(y(z))
C=lambda x:lambda y:lambda z:x(z)(y)
W=lambda x:lambda y:x(y)(y)
U=lambda x:lambda y:y(x(x)(y))
ω=lambda x:x(x)
Y=lambda g:lambda x:g(x(x))(lambda x:g(x(x)))

PS C:\Tools\Scripts\golfing> 'haskell' -gt 'cheddar'
True

i"f"@c1-p;
i          take input
 "f"       push f to the stack
    @c     count occurances of f in input
      1-   subtract 1
        p  print
         ; end program