camlspotter

(* a + b (mod m) *)
let addmod a b m =
  assert (0 <= a && 0 <= b);
  let a = a mod m in
  let b = b mod m in
  if a < m - b then
    (* Case A:  a + b < m *)
    a + b
  else
    (* Case B:  a + b >= m

camlspotter

# You need
#
# - curl
# - jq

# Your handle, ex  xxxx.bsky.social or your custom handle like dailambda.jp.
# No '@' mark.
HANDLE=hogehoge.bsky.social

# Your App password:  Settings > App password > Add App password

camlspotter

type unknown

type blob

type cid_link

type 'a nullable = 'a option

type actor_adultContentPref = {
  enabled: bool }